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)