showClass("dtrMatrix")
example("dtrMatrix-class")
(p1 <- as(T2, "dtpMatrix"))
str(p1)
(pp <- as(T, "dtpMatrix"))
stopifnot(length(p1@x) == 3, length(pp@x) == 3,
p1 @ uplo == T2 @ uplo, pp @ uplo == T @ uplo,
all((u.d <- pp - T ) == 0), is(u.d, "dtpMatrix"), u.d@uplo == T @uplo,
all((l.d <- p1 - T2) == 0), is(l.d, "dtpMatrix"), l.d@uplo == T2@uplo)
Run the code above in your browser using DataLab