# NOT RUN {
# }
# NOT RUN {
# }
# NOT RUN {
## simulate data ##
library(BNN)
library(mvtnorm)
n <- 200
p <- 50
X <- rmvnorm(n, mean = rep(1,p), sigma = diag(rep(1,p)))
eps <- rnorm(n,0,0.5)
Y <- X[,1]*X[,2]+3*sin(X[,3])-2*cos(X[,4])+X[,5]^2+eps
### fit BNN model ###
BNNsel(X,Y,hid_num = 3,lambda=0.025,total_iteration = 100000, popN = 10,nCPUs = 10)
# }
Run the code above in your browser using DataCamp Workspace