plot routines

DESCRIPTION

@@ -8,7 +8,7 @@ Maintainer: Michel Crucifix <michel.crucifix@uclouvain.be>
 Description: Collection of time series analysis tools, focused on spectral decomposition and reconstruction, with an original focus on astronomical theory of paleoclimates and cyclostratigraphy. 
 License: MIT licence
 LazyLoad: yes
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
 Imports: Rdpack, sfsmisc, cmna, gsignal, pracma
 RdMacros: Rdpack
 Depends: 

NAMESPACE

@@ -10,11 +10,13 @@ export(cwt_morlet)
 export(hilbert_extension)
 export(mem)
 export(mfft)
+export(mfft_anova)
 export(mfft_real)
 export(mfft_real_C)
 export(mfft_real_ter)
 export(powerspectrum.wavelet)
 export(reconstruct_mfft)
+export(reconstruct_morlet)
 export(ssa)
 importFrom(Rdpack,reprompt)
 importFrom(cmna,goldsectmax)

R/cwt_morlet.R

@@ -93,6 +93,9 @@ enhance_ridge <- function(A,R,confidence=0.95,inter=0.08)
 }
 
 
+
+
+#' @export reconstruct_morlet
 reconstruct_morlet  <- function(W,scales=c(-Inf,Inf), periods=NULL)
 {
  if (!(attr(W,"class")=="wavelet")) stop ("object is not a wavelet transform")

R/mfft.R

@@ -88,7 +88,7 @@ mfft <- function(xdata, minfreq=NULL, maxfreq=NULL, flag=1, nfreq=30) {
      # take care and verify that this actually works this way
      OUT = data.frame(Freq=Freq, Ampl=Ampl, Phase=Phase)
      attr(OUT,"class") = "mfft_deco"
-     return(data.frame(Freq=Freq, Ampl=Ampl, Phase=Phase))
+     return(OUT)
 }
 #
 

R/mfft_real.R

@@ -182,7 +182,7 @@ reconstruct_mfft  <- function(M){
 #' MFFT ANOVA
 #' @rdname mfft_deco
 #' @export mfft_anova
-reconstruct_mfft  <- function(M){
+mfft_anova  <- function(M){
  if (!(attr(M,"class")=="mfft_deco")) stop ("object is not a MFFT decomposition")
  xdata <- attr(M,"xdata")
  nfreq <- attr(M,"nfreq")

man/mfft_deco.Rd

@@ -2,13 +2,18 @@
 % Please edit documentation in R/mfft_real.R
 \name{reconstruct_mfft}
 \alias{reconstruct_mfft}
+\alias{mfft_anova}
 \alias{plot.mfft_deco}
 \title{MFFT reconstruction}
 \usage{
-reconstruct_mfft(M, times)
+reconstruct_mfft(M)
+
+mfft_anova(M)
 
 \method{plot}{mfft_deco}(M, ...)
 }
 \description{
 MFFT reconstruction
+
+MFFT ANOVA
 }