# NOT RUN {
data(example.data)
names(example.data)
#computationally intensive
# }
# NOT RUN {
het.ob = hetsurr.fun(y1=example.data$y1, y0=example.data$y0, s1=example.data$s1,
s0=example.data$s0, w1=example.data$w1, w0=example.data$w0, wf.grd = seq(0.25, 1.75,
length=50), var.want =TRUE, test.want = TRUE, type = "cont")
hetsurr.plot(het.ob)
# }
# NOT RUN {
#reducing dimension of example data to provide a computationally faster example
het.ob = hetsurr.fun(y1=example.data$y1[1:300], y0=example.data$y0[1:300],
s1=example.data$s1[1:300], s0=example.data$s0[1:300], w1=example.data$w1[1:300],
w0=example.data$w0[1:300], wf.grd = seq(0.25, 1.75, length=5), var.want =TRUE,
test.want = TRUE, type = "cont")
hetsurr.plot(het.ob)
# }
Run the code above in your browser using DataLab