Nothing
\donttest{
if(torch::torch_is_installed()){
library(cito)
set.seed(222)
## Data
shapes <- simulate_shapes(320, 28)
X <- shapes$data
Y <- shapes$labels
## Architecture
architecture <- create_architecture(conv(5), maxPool(), conv(5), maxPool(), linear(10))
## Build and train network
cnn.fit <- cnn(X, Y, architecture, loss = "softmax", epochs = 50, validation = 0.1, lr = 0.05)
## Get predictions of the validation set
valid <- cnn.fit$data$validation
predictions <- predict(cnn.fit, newdata = X[valid,,,,drop=FALSE], type="class")
## Classification accuracy
accuracy <- sum(predictions == Y[valid])/length(valid)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.