M <- sparse3Darray(i=1:4, j=sample(1:4, replace=TRUE),
k=c(1,2,1,2), x=1:4, dims=c(5,5,2))
anyNA(M)
dim(M)
dimnames(M)
dimnames(M) <- list(letters[1:5], LETTERS[1:5], c("Yes", "No"))
print(M)
Run the code above in your browser using DataLab