# NOT RUN {
data(banknote)
selectdata <- c(1:30,101:110,117:136,160:161)
set.seed(555566)
x <- banknote[selectdata,5:7]
ox <- otrimle(x, G=2 , ncores = 1)
str(generator.otrimle(x, ox))
# }
Run the code above in your browser using DataLab