The R Project SVN R-packages

Rev

Rev 3684 | Rev 4160 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3684 Rev 3808
Line 127... Line 127...
127 
iris.sdf.summary <- summary(iris.sdf)
 127 
iris.sdf.summary <- summary(iris.sdf)
128 
iris.summary <- summary(iris)
 128 
iris.summary <- summary(iris)
129 
stopifnot(all(iris.sdf.summary[,1:4] == iris.summary[,1:4]))
 129 
stopifnot(all(iris.sdf.summary[,1:4] == iris.summary[,1:4]))
130 
stopifnot(all(na.exclude(iris.sdf.summary[,5])==na.exclude(iris.summary[,5])))
 130 
stopifnot(all(na.exclude(iris.sdf.summary[,5])==na.exclude(iris.summary[,5])))
131 
 
 131 
 
132 
# test matrices
 132 
# test matrices on sdf's
133 
#iris.mat <- as.matrix(iris)
 133 
iris.mat <- as.matrix(iris)
134 
#iris.smat <- sqlite.matrix(iris)
 134 
iris.smat <- sqlite.matrix(iris)
- 
 
 135 
stopifnot(typeSvec(iris.smat) == mode(iris.mat),
- 
 
 136 
          length(iris.smat) == length(iris.mat),
- 
 
 137 
          all(colnames(iris.smat) == colnames(iris.mat)))
- 
 
 138 
          #all(rownames(iris.smat) == rownames(iris.mat))) # still bug here
- 
 
 139 
 
135 
 
 140