Change names of the *.q functions to *_q

R/entropy.R

@@ -1,23 +1,23 @@
 #' @author Eric Coissac
 #' @export
-H.q = function(x,q=1) {
-  sum(x * log.q(1/x,q),na.rm = TRUE)
+H_q = function(x,q=1) {
+  sum(x * log_q(1/x,q),na.rm = TRUE)
 }
 
 #' @author Eric Coissac
 #' @export
-D.q = function(x,q=1) {
-  exp.q(H.q(x,q),q)
+D_q = function(x,q=1) {
+  exp_q(H_q(x,q),q)
 }
 
 #' @author Eric Coissac
 #' @export
-H.spectrum = function(x,q=1) {
-  sapply(q,function(Q) H.q(x,Q))
+H_spectrum = function(x,q=1) {
+  sapply(q,function(Q) H_q(x,Q))
 }
 
 #' @author Eric Coissac
 #' @export
-D.spectrum = function(x,q=1) {
-  sapply(q,function(Q) D.q(x,Q))
+D_spectrum = function(x,q=1) {
+  sapply(q,function(Q) D_q(x,Q))
 }