# \donttest{
if(torch::torch_is_installed()){
library(cito)
set.seed(222)
validation_set<- sample(c(1:nrow(datasets::iris)),25)
# Build and train Network
nn.fit<- dnn(Sepal.Length~., data = datasets::iris[-validation_set,])
# Sturcture of Neural Network
print(nn.fit)
#analyze weights of Neural Network
coef(nn.fit)
}
# }
Run the code above in your browser using DataLab