search for: pnoise

.../3+2 * sin(4 * pi * (x3 - 0.2) *(x4 - 0.7)) } #the dataset nsample<-40 #sample size x1.tot<-runif(nsample,0,1) x2.tot<-runif(nsample,0,1) x3.tot<-runif(nsample,0,1) x4.tot<-runif(nsample,0,1) x5.tot<-runif(nsample,0,1) x6.tot<-runif(nsample,0,1) x7.tot<-runif(nsample,0,1) pnoise<-0.2 eta<-f2(x1.tot,x2.tot,x3.tot,x4.tot) y.tot<-eta+pnoise*rnorm(nsample,0,1) d<-data.frame(y.tot,x1.tot,x2.tot,x3.tot,x4.tot,x5.tot,x6.tot,x7.tot) nk2<-5 # the full model that contains the interactions of all pairs of x1~x7, 21 terms in total fr2<-y.tot ~ sx(x1.tot, x2.tot, kn...