if (FALSE) {
# a 3 row, 4 column greta array of 0s
z <- zeros(3, 4)
# a 3x3x3 greta array of 1s
z <- ones(3, 3, 3)
# a 2x4 greta array filled with pi
z <- greta_array(pi, dim = c(2, 4))
# a 3x3x3 greta array filled with 1, 2, and 3
z <- greta_array(1:3, dim = c(3, 3, 3))
}
Run the code above in your browser using DataLab