The R Project SVN R-packages

Rev

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

Rev 3471 Rev 3473
Line 89... Line 89...
89 
          all.equal(signif(log(iris.sdf[,1],17)), signif(log(iris[,1],17))),
 89 
          all.equal(signif(log(iris.sdf[,1],17)), signif(log(iris[,1],17))),
90 
          all.equal(round(log(iris.sdf[,1]),5), round(log(iris[,1]),5)),
 90 
          all.equal(round(log(iris.sdf[,1]),5), round(log(iris[,1]),5)),
91 
          all.equal(with(iris.sdf, Sepal.Length*Sepal.Width - Petal.Length/Petal.Width),
91 
          all.equal(with(iris.sdf, Sepal.Length*Sepal.Width - Petal.Length/Petal.Width),
92 
                    with(iris, Sepal.Length*Sepal.Width - Petal.Length/Petal.Width)),
 92 
                    with(iris, Sepal.Length*Sepal.Width - Petal.Length/Petal.Width)),
93 
          all.equal(sort(iris.sdf[,2]), sort(iris[,2])),
 93 
          all.equal(sort(iris.sdf[,2]), sort(iris[,2])),
94 
          all.equal(quantile(iris.sdf[,3]), quantile(iris[,3])))
 94 
          all.equal(quantile(iris.sdf[,3]), quantile(iris[,3])),
- 
 
 95 
          all.equal(sapply(iris.sdf[,1:4],mean), sapply(iris[,1:4],mean)))
95 
 
 96 
 
96 
stopifnot(sapply(iris.sdf[,1:4],sum) == sapply(iris[,1:4],sum))
 97 
stopifnot(sapply(iris.sdf[,1:4],sum) == sapply(iris[,1:4],sum))
97 
 
 98 
 
- 
 
 99 
# test sdfImportDBI
98 
#if (require(RSQLite)) {
 100 
#if (require(RSQLite)) {
99 
#    dr <- SQLite()
 101 
#    dr <- SQLite()
100 
#    con <- dbConnect(dr, dbname="example.db")
 102 
#    con <- dbConnect(dr, dbname="example.db")
101 
#    i1 <- sdfImportDBI(con, "select * from iris")
 103 
#    i1 <- sdfImportDBI(con, "select * from iris")
102 
#    compareSdfToDf(i1[,1:4], iris[,1:4], with.names=FALSE)
 104 
#    compareSdfToDf(i1[,1:4], iris[,1:4], with.names=FALSE)
Line 111... Line 113...
111 
rbindSdf(u2.sdf, attenu)
 113 
rbindSdf(u2.sdf, attenu)
112 
stopifnot(2*nrow(attenu)==nrow(u2.sdf))
 114 
stopifnot(2*nrow(attenu)==nrow(u2.sdf))
113 
#print((nrow(attenu)+1):(nrow(u2.sdf)))
 115 
#print((nrow(attenu)+1):(nrow(u2.sdf)))
114 
#compareSdfToDf(u2.sdf[(nrow(attenu)+1):(nrow(u2.sdf)),], attenu)
 116 
#compareSdfToDf(u2.sdf[(nrow(attenu)+1):(nrow(u2.sdf)),], attenu)
115 
 
 117 
 
- 
 
 118 
# test sdfImportSQLite
- 
 
 119 
k <- sdfImportSQLite("example.db", "iris")
- 
 
 120 
k1 <- k[,2:6]
- 
 
 121 
for (i in 1:4) stopifnot(all.equal(k1[,i],iris[,i]))
- 
 
 122 
stopifnot(all.equal(levels(k1[,5]),levels(iris[,5])),
- 
 
 123 
          all.equal(as.integer(k1[,5]), as.integer(iris[,5])))
- 
 
 124 
 
116 
# test summary
 125 
# test summary
117 
#for (j in 1:5) stopifnot(all(summary(iris.sdf[,j]) == summary(iris[,j])))
 126 
for (j in 1:5) stopifnot(all(summary(iris.sdf[,j]) == summary(iris[,j])))
118 
#iris.sdf.summary <- summary(iris.sdf)
 127 
iris.sdf.summary <- summary(iris.sdf)
119 
#iris.summary <- summary(iris)
 128 
iris.summary <- summary(iris)
120 
#stopifnot(all(iris.sdf.summary[,1:4] == iris.summary[,1:4]))
 129 
stopifnot(all(iris.sdf.summary[,1:4] == iris.summary[,1:4]))
121 
#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])))