set.seed(20)
x1 = runif(150)
x2 = runif(150)
z = Vectorize(rcusp)(1, 4*x1-2, 4*x2-1)
data <- data.frame(x1, x2, z)
fit <- cusp(y ~ z, alpha ~ x1+x2, beta ~ x1+x2, data)
if (FALSE) {
plot(fit)
# just densities
layout(matrix(1:4,2))
plot(fit, what="densities")
}
Run the code above in your browser using DataLab