The scorcher package provides high-level functionality for building
and fitting deep learning models using the Torch library in R. By
simplifying model development through easy-to-use functions and ensuring
compatibility with existing R workflows and data structures, scorcher
facilitates the use of deep learning without the need for extensive
programming knowledge.
The package allows users to create, modify, and visualize models through
functions such as initiate_scorch, scorch_layer, compile_scorch,
and fit_scorch. The package flexibly handles tasks such as prediction,
classification, computer vision, diffusion, and more.
You can install the development version of scorcher from GitHub with:
# install.packages("pak")
pak::pak("jtleek/scorcher")library(scorcher)Here is an example where we build a convolutional neural network using the MNIST dataset, which contains 70,000 grayscale images of handwritten digits, from 0 to 9. The goal is to classify these images into one of the 10 digit categories (0-9).
1. Prepare the Training Data:
library(torch)
library(torchvision)#- Training Data
train_data <- mnist_dataset(
root = tempdir(),
download = TRUE,
transform = transform_to_tensor)
x_train <- torch_tensor(train_data$data, dtype = torch_float()) |>
torch_unsqueeze(2)
y_train <- torch_tensor(train_data$targets, dtype = torch_long())Example Training Images:
Next, we’ll define our neural network using the scorcher package.
2. Create the Dataloader:
#- Create the Dataloader
dl <- scorch_create_dataloader(x_train, y_train, batch_size = 500)3. Define the Scorcher Model:
#- Define the Neural Network
scorch_model <- dl |>
initiate_scorch() |>
scorch_layer("conv2d", in_channels = 1, out_channels = 32, kernel_size = 3) |>
scorch_layer("relu") |>
scorch_layer("conv2d", in_channels = 32, out_channels = 64, kernel_size = 3) |>
scorch_layer("relu") |>
scorch_layer("max_pool2d", kernel_size = 2) |>
scorch_layer("dropout2d", p = 0.25) |>
scorch_function(torch_flatten, start_dim = 2) |>
scorch_layer("linear", 9216, 128) |>
scorch_layer("relu") |>
scorch_layer("linear", 128, 10)4. Compile the Model:
#- Compile the Neural Network
compiled_scorch_model <- compile_scorch(scorch_model)5. Train the Model
#-- Training the Neural Network
fitted_scorch_model <- compiled_scorch_model |>
fit_scorch(loss = nn_cross_entropy_loss, num_epochs = 10, verbose = T)
#> No GPU detected. Using available CPU.
#>
#> Epoch 1, Loss: 2.02356864586473
#> Epoch 2, Loss: 0.0940264421204726
#> Epoch 3, Loss: 0.0601395909674466
#> Epoch 4, Loss: 0.0492425365373492
#> Epoch 5, Loss: 0.0394406393170357
#> Epoch 6, Loss: 0.0305162566791599
#> Epoch 7, Loss: 0.0269935902828972
#> Epoch 8, Loss: 0.0224211714424503
#> Epoch 9, Loss: 0.0192102687200531
#> Epoch 10, Loss: 0.01722182769832826. Evaluate the Model
Finally, we’ll evaluate our model on the testing data.
#- Testing Data
test_data <- mnist_dataset(
root = tempdir(),
train = FALSE,
transform = transform_to_tensor
)
x_test <- torch_tensor(test_data$data, dtype = torch_float()) |>
torch_unsqueeze(2)
y_test <- torch_tensor(test_data$targets, dtype = torch_long())
#- Model Predictions
fitted_scorch_model$eval()
pred <- fitted_scorch_model(x_test) |> torch_argmax(dim = 2)
accuracy <- sum(pred == y_test)$item() / length(y_test)
cat(sprintf("Testing Accuracy: %.2f%%\n", accuracy * 100))
#> Testing Accuracy: 98.63%Example Predictions Images:
Contributions are welcome! Please open an issue or submit a pull request on GitHub.
This project is licensed under the MIT License.