# NOT RUN {
<!-- %% this is used from ./dtpMatrix-class.Rd (change with care!) -->
# }
# NOT RUN {
(m <- rbind(2:3, 0:-1))
(M <- as(m, "dgeMatrix"))
(T <- as(M, "dtrMatrix")) ## upper triangular is default
(T2 <- as(t(M), "dtrMatrix"))
stopifnot(T@uplo == "U", T2@uplo == "L", identical(T2, t(T)))
# }
Run the code above in your browser using DataLab