# NOT RUN {
if (torch_is_installed()) {
pool <- nn_max_pool2d(2, stride=2, return_indices=TRUE)
unpool <- nn_max_unpool2d(2, stride=2)
input <- torch_randn(1,1,4,4)
out <- pool(input)
unpool(out[[1]], out[[2]])
# specify a different output size than input size
unpool(out[[1]], out[[2]], output_size=c(1, 1, 5, 5))
}
# }
Run the code above in your browser using DataLab