XQS started, wait for applet!

Subject: XploRe Application Guide
See XploRe: intest2d

Quantlet: gam07
Description: estimates bivariate marginal influence for simulated data
Download: gam07.xpl

Code:
library("gam")
randomize(12345)
t     = grid(#(-0.9,-0.9),#(0.2,0.2),#(10,10))
n     = rows(t)
t     = t~(uniform(n)*2-1)
g3    = sin(2*t[,3])
g12   = t[,1].*t[,2]^2
y     = g3 + g12 + normal(n)*sqrt(0.5)
h     = #(1.0, 1.0)
g     = #(1.1, 1.1, 1.2)
loc   = 1
gest  = intest2d(t,y,h,g,loc)
library("graphic")
pic  = createdisplay(1,2)
dat11 = grsurface(t[,1:2]~g12)
dat12 = grsurface(t[,1:2]~gest[,1])
gc = grcube( dat11|dat12 )
show(pic,1,1,dat11,gc.box,gc.x,gc.y,gc.z,gc.c)
show(pic,1,2,dat12,gc.box,gc.x,gc.y,gc.z,gc.c)
setheadline(pic, 1, 1, "Original function")
setheadline(pic, 1, 2, "Estimated function")
; rotate view
m=#(0.70711, -0.70710, 1.1545e-5)~#(0.13795,0.13797, 0.98078)~#(-0.69351,-0.69352,0.19510)
setgopt(pic, 1, 1, "rotcos", m)
setgopt(pic, 1, 2, "rotcos", m)


Subject: XploRe Application Guide
See XploRe: intest2d

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