# NOT RUN {
if (torch_is_installed()) {
# power-2 pool of square window of size=3, stride=2
m <- nn_lp_pool2d(2, 3, stride=2)
# pool of non-square window of power 1.2
m <- nn_lp_pool2d(1.2, c(3, 2), stride=c(2, 1))
input <- torch_randn(20, 16, 50, 32)
output <- m(input)
}
# }
Run the code above in your browser using DataLab