R : Copyright 2005, The R Foundation for Statistical Computing Version 2.1.1 (2005-06-20), ISBN 3-900051-07-0 R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for a HTML browser interface to help. Type 'q()' to quit R. > ### *
> ### > attach(NULL, name = "CheckExEnv") > assign(".CheckExEnv", as.environment(2), pos = length(search())) # base > ## add some hooks to label plot pages for base and grid graphics > setHook("plot.new", ".newplot.hook") > setHook("persp", ".newplot.hook") > setHook("grid.newpage", ".gridplot.hook") > > assign("cleanEx", + function(env = .GlobalEnv) { + rm(list = ls(envir = env, all.names = TRUE), envir = env) + RNGkind("default", "default") + set.seed(1) + options(warn = 1) + delayedAssign("T", stop("T used instead of TRUE"), + assign.env = .CheckExEnv) + delayedAssign("F", stop("F used instead of FALSE"), + assign.env = .CheckExEnv) + sch <- search() + newitems <- sch[! sch %in% .oldSearch] + for(item in rev(newitems)) + eval(substitute(detach(item), list(item=item))) + missitems <- .oldSearch[! .oldSearch %in% sch] + if(length(missitems)) + warning("items ", paste(missitems, collapse=", "), + " have been removed from the search path") + }, + env = .CheckExEnv) > assign("..nameEx", "__{must remake R-ex/*.R}__", env = .CheckExEnv) # for now > assign("ptime", proc.time(), env = .CheckExEnv) > grDevices::postscript("rwt-Examples.ps") > assign("par.postscript", graphics::par(no.readonly = TRUE), env = .CheckExEnv) > options(contrasts = c(unordered = "contr.treatment", ordered = "contr.poly")) > options(warn = 1) > library('rwt') Loading required package: matlab Attaching package: 'matlab' The following object(s) are masked from package:utils : find fix > > assign(".oldSearch", search(), env = .CheckExEnv) > assign(".oldNS", loadedNamespaces(), env = .CheckExEnv) > cleanEx(); ..nameEx <- "daubcqf" > > ### * daubcqf > > flush(stderr()); flush(stdout()) > > ### Name: daubcqf > ### Title: Daubechies Filter Creation > ### Aliases: daubcqf PHASE.MINIMUM PHASE.MID PHASE.MAXIMUM > ### Keywords: interface > > ### ** Examples > > h <- daubcqf(6) > > > > cleanEx(); ..nameEx <- "denoise" > > ### * denoise > > flush(stderr()); flush(stdout()) > > ### Name: denoise > ### Title: Wavelet-based Denoising > ### Aliases: denoise denoise.dwt denoise.udwt DWT.TRANSFORM.TYPE > ### UDWT.TRANSFORM.TYPE MAD.VARIANCE.ESTIMATOR STD.VARIANCE.ESTIMATOR > ### SOFT.THRESHOLD.TYPE HARD.THRESHOLD.TYPE MAX.DECOMPOSITION > ### CALC.THRESHOLD.TO.USE DEFAULT.DWT.THRESHOLD.MULTIPLIER > ### DEFAULT.UDWT.THRESHOLD.MULTIPLIER default.dwt.option > ### default.udwt.option > ### Keywords: interface > > ### ** Examples > > sig <- makesig(SIGNAL.DOPPLER) > h <- daubcqf(6) > ret.dwt <- denoise.dwt(sig$x, h$h.0) start decimated wavelet transform start denoising via wavelet transform thld = 4.67763e-05 end denoising via wavelet transform > > > > cleanEx(); ..nameEx <- "makesig" > > ### * makesig > > flush(stderr()); flush(stdout()) > > ### Name: makesig > ### Title: Make Signal > ### Aliases: makesig SIGNAL.ALL SIGNAL.HEAVI.SINE SIGNAL.BUMPS > ### SIGNAL.BLOCKS SIGNAL.DOPPLER SIGNAL.RAMP SIGNAL.CUSP SIGNAL.SING > ### SIGNAL.HI.SINE SIGNAL.LO.SINE SIGNAL.LIN.CHIRP SIGNAL.TWO.CHIRP > ### SIGNAL.QUAD.CHIRP SIGNAL.MISH.MASH SIGNAL.WERNER.SORROWS > ### SIGNAL.LEOPOLD > ### Keywords: interface > > ### ** Examples > > ret.sig <- makesig(SIGNAL.DOPPLER, 32) > > > > cleanEx(); ..nameEx <- "mdwt" > > ### * mdwt > > flush(stderr()); flush(stdout()) > > ### Name: mdwt > ### Title: Discrete Wavelet Transform > ### Aliases: mdwt > ### Keywords: interface > > ### ** Examples > > sig <- makesig(SIGNAL.LIN.CHIRP, 8) > h <- daubcqf(4) > L <- 2 > ret.mdwt <- mdwt(sig$x, h$h.0, L) > > > > cleanEx(); ..nameEx <- "midwt" > > ### * midwt > > flush(stderr()); flush(stdout()) > > ### Name: midwt > ### Title: Inverse Discrete Wavelet Transform > ### Aliases: midwt > ### Keywords: interface > > ### ** Examples > > sig <- makesig(SIGNAL.LIN.CHIRP, 8) > h <- daubcqf(4) > L <- 1 > ret.mdwt <- mdwt(sig$x, h$h.0, L) > ret.midwt <- midwt(ret.mdwt$y, h$h.0, ret.mdwt$L) > > > > cleanEx(); ..nameEx <- "mirdwt" > > ### * mirdwt > > flush(stderr()); flush(stdout()) > > ### Name: mirdwt > ### Title: Inverse Redundant Discrete Wavelet Transform > ### Aliases: mirdwt > ### Keywords: interface > > ### ** Examples > > sig <- makesig(SIGNAL.LEOPOLD, 8) > h <- daubcqf(4) > L <- 1 > ret.mrdwt <- mrdwt(sig$x, h$h.0, L) > ret.mirdwt <- mirdwt(ret.mrdwt$yl, ret.mrdwt$yh, h$h.0, ret.mrdwt$L) > > > > cleanEx(); ..nameEx <- "mrdwt" > > ### * mrdwt > > flush(stderr()); flush(stdout()) > > ### Name: mrdwt > ### Title: Redundant Discrete Wavelet Transform > ### Aliases: mrdwt > ### Keywords: interface > > ### ** Examples > > sig <- makesig(SIGNAL.LEOPOLD, 8) > h <- daubcqf(4) > L <- 1 > ret.mrdwt <- mrdwt(sig$x, h$h.0, L) > > > > cleanEx(); ..nameEx <- "threshold" > > ### * threshold > > flush(stderr()); flush(stdout()) > > ### Name: threshold > ### Title: Threshold Input Signal > ### Aliases: hardTh softTh > ### Keywords: interface > > ### ** Examples > > sig <- makesig(SIGNAL.WERNER.SORROWS, 8) > thld <- 1 > x <- rwt:::hardTh(sig$x, thld) > > > > ### *