data(Hald)
hald.gprior = bas.lm(Y~ ., data=Hald, prior="ZS-null", modelprior=uniform())
hald.bpm = predict(hald.gprior, newdata=Hald[1,],
se.fit=TRUE,
estimator="BPM")
variable.names(hald.bpm)
Run the code above in your browser using DataLab