ext.dir <- paste0(tempdir(), "/criticality/extdata")
dir.create(ext.dir, recursive = TRUE, showWarnings = FALSE)
extdata <- paste0(.libPaths()[1], "/criticality/extdata")
file.copy(paste0(extdata, "/facility.csv"), ext.dir, recursive = TRUE)
file.copy(paste0(extdata, "/mcnp-dataset.RData"), ext.dir, recursive = TRUE)
config <- FALSE
try(config <- reticulate::py_config()$available)
try(if (config == TRUE) {
NN(
batch.size = 128,
ensemble.size = 1,
epochs = 10,
layers = "256-256-16",
loss = "sse",
replot = FALSE,
ext.dir = ext.dir
)
})
Run the code above in your browser using DataLab