The R Project SVN – R – Diff – /trunk/tests/reg-tests-1c.R



 
 
## tsp<- did not remove mts class
z <- ts(cbind(1:5,1:5))
tsp(z) <- NULL
stopifnot(identical(c(FALSE,  TRUE),
                    c("mts","matrix") %in% class(z)))
## kept "mts" in 3.2.4, PR#16769
 
 
## as.hclust() and str() for deeply nested dendrograms
op <- options(expressions = 300) # so problem triggers early

Rev 76855	Rev 77383
Line 1596...	Line 1596...
1596		1596
1597		1597
1598	`## tsp<- did not remove mts class`	1598	`## tsp<- did not remove mts class`
1599	`z <- ts(cbind(1:5,1:5))`	1599	`z <- ts(cbind(1:5,1:5))`
1600	`tsp(z) <- NULL`	1600	`tsp(z) <- NULL`
1601	`stopifnot(identical(class(z), "matrix"))`	1601	`stopifnot(identical(c(FALSE, TRUE),`
-		1602	`c("mts","matrix") %in% class(z)))`
1602	`## kept "mts" in 3.2.4, PR#16769`	1603	`## kept "mts" in 3.2.4, PR#16769`
1603		1604
1604		1605
1605	`## as.hclust() and str() for deeply nested dendrograms`	1606	`## as.hclust() and str() for deeply nested dendrograms`
1606	`op <- options(expressions = 300) # so problem triggers early`	1607	`op <- options(expressions = 300) # so problem triggers early`

The R Project SVN R

(root)/trunk/tests/reg-tests-1c.R – Rev 76855 → 77383