if (torch_is_installed()) {
model <- nn_module(
initialize = function() {
self$conv1 <- nn_conv2d(1, 20, 5)
self$conv2 <- nn_conv2d(20, 20, 5)
},
forward = function(input) {
input <- self$conv1(input)
input <- nnf_relu(input)
input <- self$conv2(input)
input <- nnf_relu(input)
input
}
)
}
Run the code above in your browser using DataLab