Code:

library("gam")
randomize(12345)
n     = 50
t     = uniform(n,3)*2-1
g1    = 2*t[,1]
g2    = t[,2]^2 - mean(t[,2]^2)
g3    = sin(3*t[,3])
g12   = t[,1].*t[,2]
y     = g1+g2+g3+g12+normal(n)*sqrt(0.5)
h     = #(0.9,0.9,0.7)
g     = #(1.0,1.0,0.9)
boot  = 99
hb    = 1.1
weight= matrix(n)-prod((abs(t[,1:2]).>0.85),2)
opt   = list(boot,hb,weight)
test  = intertest1(t,y,h,g,opt)
test                                             

© MD*Tech - Method and Data Technologies, generated on 19.7.2000 .