DeepLearningSegfault

install.packages(c("Rcpp", "plotrix", "RcppEigen", "BH", "devtools"))

library("devtools")
install_github(repo = "mnist", username = "xrobin", ref = "master")
install_github(repo = "DeepLearning", username = "xrobin", ref = "master")

my.diag.function <- function(rbm, batch, data, iter, batchsize, maxiters, layerFromCpp) {
	print(iter)
}

library(mnist)
library(DeepLearning)

initial.dbn <- DeepBeliefNet(Layers(c(784, 1000, 500, 250, 2), input="cont", output="gaussian"))


pretrained <- pretrain(initial.dbn[[1]], mnist$train$x,
                       diag.function = my.diag.function, diag.rate = "accelerate")