### 4.Example.testfunction.R
par(mfrow=c(2,2), mar=0.1+c(4,2,2.0,1))

tmp <- heav(1024)
plot(tmp$x, tmp$meanf, type="l", xlab="", ylab="", main="Heavisine")

tmp <- dopp(1024)
plot(tmp$x, tmp$meanf, type="l", xlab="", ylab="", main="Doppler")

# The function name is changed from "poly" in CVThresh version 1.0.1. to "ppoly" in CVThresh version 1.0.5.
tmp <- ppoly(1024)
plot(tmp$x, tmp$meanf, type="l", xlab="", ylab="", main="Piecewise Polynomial")

tmp <- fg1(1024)
plot(tmp$x, tmp$meanf, type="l", xlab="", ylab="", main="fg1")