24 lines
384 B
R
24 lines
384 B
R
#' @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))
|
|
}
|