R/summary.Boptbd.R

In Boptbd: Bayesian Optimal Block Designs

Defines functions summary.Boptbd

Documented in summary.Boptbd

summary.Boptbd <-
function(object,...)
{
optbd_maes<-object
optbd_maes$grphlt<-make_graph(as.numeric(as.factor(object$OptdesF)), directed = FALSE)
class(optbd_maes)<-"summary.Boptbd"
optbd_maes
}

Try the Boptbd package in your browser