Skip to content
Extraits de code Groupes Projets
Valider b7f79115 rédigé par Michel Crucifix's avatar Michel Crucifix
Parcourir les fichiers

add periodogram + mfft notebook

parent 22781585
Aucune branche associée trouvée
Aucune étiquette associée trouvée
Aucune requête de fusion associée trouvée
#' Periodogram
#'
#' Simple periodogram
#' @param xdata
#' @importFrom stats start
#' @importFrom stats as.ts
#' @author Michel Crucifix for the R code
#
#' @export periodogram
periodogram <- function(xdata){
xdata = stats::as.ts(xdata)
dt = deltat(xdata)
startx = stats::start(xdata)[1]
N <- length(xdata)
N2 <- ceiling(N/2)
freqs <- ((seq(N)-1)/dt/N)[0:N2]
f <- fft(xdata)[0:N2]
Power <- Mod(f)^2
Phase <- Arg(f)
out <- list(Freq=freqs, Power=Power, Phase=Phase)
attr(OUT, "class") = "periodogram"
return(OUT)
}
#' @rdname periodogram
#' @export
plot.periodogram <- function(X,...){
plot(X$Freq, X$Mod, type='l', log='xy',...)
}
Ce diff est replié.
0% Chargement en cours ou .
You are about to add 0 people to the discussion. Proceed with caution.
Terminez d'abord l'édition de ce message.
Veuillez vous inscrire ou vous pour commenter