# NOT RUN {
weighted_MaSTnetwork<-MaST(data)
weighted_binary_MaSTnetwork<-MaST(data,binary=TRUE)
unweighted_MaSTnetwork<-MaST(data,weighted=FALSE)
unweighted_binary_MaSTnetwork<-MaST(data,binary=TRUE,weighted=FALSE)
# }
Run the code above in your browser using DataLab