Enthält mit dem folgenden Code generierte Daten:


set.seed(11)

n <- 70
R <- 2000
x <- seq(1:n)/n
y <- 8*x+ 4*cos(14*x) + 1-rexp(n)
dat <- data.frame(x,y)