if (FALSE) {
# basic example
D <- 3
M <- 100
s <- 0.25
x <- matrix(runif(M * D), M, D)
# create LazyTensor
x_i <- LazyTensor(x, index = 'i')
Pm_s <- LazyTensor(s, index = NA)
# call get_inner_dim
get_inner_dim(x_i) # returns 3
get_inner_dim(Pm_s) # returns 1
}
Run the code above in your browser using DataLab