install.packages()
from within R itself).
There are four main changes from previous versions:
nlevels
function has been renamed to be called
nlevelsWT
. Users will have noticed that with previous
versions a message alerting the user to a clash with an already
existing function, nlevels
which is to do with the
number of levels in a statistical factor. Our change of name
removes that clash, but legacy code might need to be changed.
cthresh
package into WaveThresh.
This is because half of the code for this package was effectively
within WaveThresh anyway (e.g. wst
for complex-valued
was in cthresh
but the inversion code AvBasis
was in WaveThresh!). The way that cthresh
was originally
meant to work was as a layer on top of WaveThresh, but that is not
feasible now, at least in a straightforward way. The new version is
a simplification in that there is now only one filter.select,
wd, wst, wr.wd
function in one package!
PsiJ
printed out a lot of
messages that were not useful. This could be incredibly annoying
and these have been removed.
Rprintf
or REprintf
. There are also
no longer any calls to exit
either.
Enjoy. Guy Nason, Oct 31 2012.
WaveThresh, version 4.5, is now available directly from CRAN
(or install.packages()
from within R itself).
This is now the preferred method of using WaveThresh.
Note that when you install WaveThresh then you have to type:
library("wavethresh")
to make it work (ie all lower case).
You might be interested in learning WaveThresh in conjunction with the new Springer book Wavelet methods in Statistics with R
If you use WaveThresh, or my book, please do remember to reference it!
Guy Nason
15th March 2010.
Guy Nason
4th August 2008.
as.numeric
should be:
ix <- as.numeric(dimnames(tb)[[1]]) + 1
diff
, constructing
the dBabyECG
data set is wrong.
It shoud read
> dBabyECG <- diff(c(BabyECG[2], BabyECG))
hazest <- function(z, delta, nbins=32, levN=1, levD=1, filter.number=8){
hazest
needs
another argument: delta
(the censoring indicator).
The function header on this line should read:
hazest <- function(z, delta, nbins=32, levN=1, levD=1, filter.number=8){
subf
should be
fsub <- subf(z=z[delta==1], nbins=nbins, filter.number=filter.number, lev=levN)