library(torch)
# creates example tensors. x requires_grad = TRUE tells that
# we are going to take derivatives over it.
dense <- nn_module(
clasname = "dense",
# the initialize function tuns whenever we instantiate the model
initialize = function(in_features, out_features) {
# just for you to see when this function is called
cat("Calling initialize!")
# we use nn_parameter to indicate that those tensors are special
# and should be treated as parameters by `nn_module`.
self$w <- nn_parameter(torch_randn(in_features, out_features))
self$b <- nn_parameter(torch_zeros(out_features))
},
# this function is called whenever we call our model on input.
forward = function(x) {
cat("Calling forward!")
torch_mm(x, self$w) + self$b
}
)
model <- dense(3, 1)
## Calling initialize!
# you can get all parameters
model$parameters
## $w
## torch_tensor
## 0.2878
## -1.2618
## -0.7704
## [ CPUFloatType{3,1} ][ requires_grad = TRUE ]
##
## $b
## torch_tensor
## 0
## [ CPUFloatType{1} ][ requires_grad = TRUE ]
# or individually
model$w
## torch_tensor
## 0.2878
## -1.2618
## -0.7704
## [ CPUFloatType{3,1} ][ requires_grad = TRUE ]
## torch_tensor
## 0
## [ CPUFloatType{1} ][ requires_grad = TRUE ]
# create an input tensor
x <- torch_randn(10, 3)
y_pred <- model(x)
## Calling forward!
## torch_tensor
## -2.5218
## 2.0085
## -0.3457
## -0.1670
## 0.2698
## -0.9264
## 0.0783
## 2.3865
## 0.7261
## 1.6565
## [ CPUFloatType{10,1} ][ grad_fn = <AddBackward0> ]