# NOT RUN {
M <- Matrix(1:6, nrow=4, ncol=3,
dimnames = list(c("a", "b", "c", "d"), c("A", "B", "C")))
stopifnot(all(!is.na(M)))
M[2:3,2] <- NA
is.na(M)
if(exists("anyNA", mode="function"))
anyNA(M)
A <- spMatrix(10,20, i = c(1,3:8),
j = c(2,9,6:10),
x = 7 * (1:7))
stopifnot(all(!is.na(A)))
# }
# NOT RUN {
<!-- %TODO stopifnot(all(!is.na(A)), !anyNA(A)) -->
# }
# NOT RUN {
A[2,3] <- A[1,2] <- A[5, 5:9] <- NA
inA <- is.na(A)
stopifnot(sum(inA) == 1+1+5)
# }
# NOT RUN {
<!-- % dont.. -->
# }
Run the code above in your browser using DataLab