Initial commit of the project

R/entropy.R

@@ -0,0 +1,23 @@
+#' @author Eric Coissac
+#' @export
+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)
+}
+
+#' @author Eric Coissac
+#' @export
+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))
+}