# NOT RUN {
p0 = 500
n0 = 200
X = matrix(runif(n0*p0,-2,2),n0,p0)
mu = X[,1]^2 + 2*sin(X[,2]*2) + 2*cos(X[,3]*2) + X[,4]
y = mu + rnorm(n0)
X = scale(X)
y = as.vector(y)
#fit_additive = S5_additive(X,y, tuning = 0.1*ncol(X))
#print(fit_additive$ind.hppm) # the MAP model
#print(fit_additive$hppm.prob) # the posterior probability of the hppm
#plot(fit_additive$marg.prob,ylim=c(0,1),ylab="marginal inclusion probability")
# the marginal inclusion probability
# }
Run the code above in your browser using DataLab