| ## accumulate here tests of the relation between S4 and S3 classes | |
| ## $<-.data.frame did stupid things with the class attribute | |
| ## that clobbered S4 classes extending "data.frame" | |
| ## Test that the S4 method (R 2.13.0) works transparently | |
| set.seed(864) | |
| xx <- data.frame(a=rnorm(10), | |
| b=as.factor(sample(c("T", "F"), 10, TRUE)), | |
| row.names = paste("R",1:10,sep=":")) | |
| setClass("myData", representation(extra = "character"), | |
| contains = "data.frame") | |
| mx <- new("myData", xx, extra = "testing") | |
| ## three kinds of $<-: replace, add, delete (NULL value) | |
| mx$a <- mx$a * 2 | |
| xx$a <- xx$a * 2 | |
| mx$c <- 1:10 | |
| xx$c <- 1:10 | |
| mx$b <- NULL | |
| xx$b <- NULL | |
| stopifnot(identical(mx, new("myData", xx, extra = "testing"))) |