powered by
kzsv(object) ## S3 method for class 'kzsv': summary(object, digits=getOption("digits"), ...) ## S3 method for class 'kzsv': plot(x, \dots)
x <- c(rep(0,4000),rep(0.5,2000),rep(0,4000)) noise <- rnorm(n = 10000, sd = 1.0) # normally-distributed random variates v <- x + noise a<-kza(v, m=1000, k=3) sv<-kzsv(a)
Run the code above in your browser using DataLab