if (FALSE) {
# Numerical input
rsqrt(4)
rsqrt(c(1,4,9,16))
# LazyTensor symbolic element-wise inverse square root
x <- matrix(runif(150 * 3), 150, 3) # arbitrary R matrix, 150 rows, 3 columns
x_i <- LazyTensor(x, index = 'i') # creating LazyTensor from matrix x,
# indexed by 'i'
Rsqrt_x <- rsqrt(x_i) # symbolic matrix, 150 rows and 3 columns
}
Run the code above in your browser using DataLab