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

option for not hiding influence cone

parent 41b352f2
Aucune branche associée trouvée
Aucune étiquette associée trouvée
Aucune requête de fusion associée trouvée
1.03 : added cross morlet
1.04 : added "mask" option to display influence cone in Morlet
Package: gtseries
Type: Package
Title: Time Series analysis for galcial cycles
Version: 1.03
Date: 2015-02-12
Version: 1.04
Date: 2022-05-28
Author: Michel Crucifix
Maintainer: Michel Crucifix <michel.crucifix@uclouvain.be>
Description: More about what it does (maybe more than one line)
......
......@@ -192,13 +192,14 @@ cwt_morlet <- function (A,inter=20,k0=5.6,amin=1,amax=Inf,calcmask=TRUE,scale=NA
wave
}
plot.wavelet <- function (wave,resx=400,resy=300,xlab="Time",ylab="Period",scaling_correction=0,col=col_wavelet,legend=FALSE,Mode=Mod,...)
plot.wavelet <- function (wave,resx=400,resy=300,xlab="Time",ylab="Period",scaling_correction=0,col=col_wavelet,legend=FALSE,Mode=Mod,plotMask=TRUE,...)
{
require(fields)
xx <- attr(wave,"time")
period <- attr(wave,"period")
mask <- attr(wave,"mask")
if (!plotMask) mask[,] = 1 # do not hide influence cone
aa <- attr(wave,"scale")
thin_factor_xx <- max(ceiling(length(xx)/ resx),1)
thin_factor_yy <- max(ceiling(length(aa)/ resy),1)
......
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