# \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), grad = FALSE,
#hidden = 5*K, link = "selu", bias = TRUE,
hidden = c(10, 10, 10), link = "selu", bias =TRUE,
validation = 0, epochs = 32, ncores = 2)
for (j in 1:length(dnn0$model)) {
nnj <- dnn0$model[[j]][[1]]
nplot(nnj)
Sys.sleep(5)
}
}
# }
Run the code above in your browser using DataLab