Last chance! 50% off unlimited learning
Sale ends in
kzs(y, m, k = 1, t = NULL)
kzft
,n <- 1000
x <- (1:n)/n
true<-((exp(1.5*x)+sin(7*x))-1)/3
noise <- rnorm(n)
y <- true + noise
a<-kzs(y,m=100)
plot(true,type='l')
lines(a,col="blue")
Run the code above in your browser using DataLab