if (FALSE) {
x <- matrix(runif(150 * 3), 150, 3) # arbitrary R matrix, 150 rows, 3 columns
x_i <- LazyTensor(x, index = 'i') # LazyTensor from matrix x, indexed by 'i'
K <- 2
kmin_x <- Kmin(x_i, K, "i") # Kmin reduction, over the 'i' indices
}
if (FALSE) {
x <- matrix(runif(150 * 3), 150, 3) # arbitrary R matrix, 150 rows, 3 columns
x_i <- LazyTensor(x, index = 'i') # LazyTensor from matrix x, indexed by 'i'
K <- 2
kmin_red_x <- Kmin_reduction(x_i, K, "i") # Kmin reduction, indexed by 'i'
}
Run the code above in your browser using DataLab