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)