# NOT RUN {
# --- get a matrix with raw-data
mydata <- cbind(rnorm(10000, mean = 0, sd = 3), ncol = 2)
mylabels <- apply(mydata, 1, function(row) round(sqrt(sum(row**2)), 0))
# --- create a \var{bdm} instance with our raw-data matrix
mybdm <- bdm.init('mydataset', mydata, labels = mylabels)
str(mybdm)
# --- save it
# }
# NOT RUN {
bdm.save(mybdm)
# }
Run the code above in your browser using DataLab