# \donttest{
if (torch::torch_is_installed()){
# load ALS data
ig<- alsData$graph
data<- alsData$exprs
data<- transformData(data)$data
#ncores<- parallel::detectCores(logical = FALSE)
dnn0 <- SEMdnn(ig, data, train=1:nrow(data), algo = "layerwise",
hidden = c(10, 10, 10), link = "selu", bias =TRUE,
epochs = 32, patience = 10, verbose = TRUE)
#Visualize the neural networks per each layer of dnn0
nplot(dnn0, hidden = c(10, 10, 10), bias = FALSE)
}
# }
Run the code above in your browser using DataLab