data(exoplanet)
model <- get.best.model(fbms(semimajoraxis ~ ., data = exoplanet,
family = "gaussian"))
print(model)
model <- get.mpm.model(fbms(semimajoraxis ~ ., data = exoplanet,
family = "gaussian"), y = exoplanet[,1],x = exoplanet[,-1])
print(model)
Run the code above in your browser using DataLab