normal_data <- matrix(rnorm(200*6), 200, 6)
mydesign <- c(0,0,0,1,1,1)
norm_result <- RBM_T(normal_data,mydesign,50,0.05)
unif_data <- matrix(runif(200*7, 0.10, 0.95), 200, 7)
mydesign2 <- c(0,0,0, 1,1,1,1)
unif_result <- RBM_T(unif_data,mydesign2,100,0.05)
Run the code above in your browser using DataLab