powered by
rbm.train(x, hidden, numepochs = 3, batchsize = 100, learningrate = 0.8, learningrate_scale = 1, momentum = 0.5, visible_type = "bin", hidden_type = "bin", cd = 1)
Var1 <- c(rep(1, 50), rep(0, 50)) Var2 <- c(rep(0, 50), rep(1, 50)) x3 <- matrix(c(Var1, Var2), nrow = 100, ncol = 2) r1 <- rbm.train(x3, 10, numepochs = 20, cd = 10)
Run the code above in your browser using DataLab