The R Project SVN R-packages

Rev

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

Rev 3446 Rev 3456
Line 10... Line 10...
10 
u1.sdf <- sqlite.data.frame(iris)
 10 
u1.sdf <- sqlite.data.frame(iris)
11 
stopifnot(file.exists("data1.db"))
 11 
stopifnot(file.exists("data1.db"))
12 
u2.sdf <- sqlite.data.frame(attenu)
 12 
u2.sdf <- sqlite.data.frame(attenu)
13 
stopifnot(file.exists("data2.db"))
 13 
stopifnot(file.exists("data2.db"))
14 
 
 14 
 
- 
 
 15 
# test classes
- 
 
 16 
stopifnot(class(u1.sdf) == "sqlite.data.frame",
- 
 
 17 
          class(u2.sdf) == "sqlite.data.frame")
- 
 
 18 
 
15 
# test row.names
 19 
# test row.names
16 
stopifnot(all(row.names(u1.sdf)==row.names(iris)))
 20 
stopifnot(all(as.character(row.names(u1.sdf))==row.names(iris)))
17 
stopifnot(all(row.names(u2.sdf)==row.names(attenu)))
 21 
stopifnot(all(as.character(row.names(u2.sdf))==row.names(attenu)))
18 
 
 22 
 
19 
# test creating named sdfs
 23 
# test creating named sdfs
20 
iris.sdf <- sqlite.data.frame(iris, "iris")
 24 
iris.sdf <- sqlite.data.frame(iris, "iris")
21 
stopifnot(file.exists("iris.db"))
 25 
stopifnot(file.exists("iris.db"))
22 
iris2.sdf <- sqlite.data.frame(iris, "iris")
 26 
iris2.sdf <- sqlite.data.frame(iris, "iris")
Line 44... Line 48...
44 
for (i in 1:nrows) { for (j in 1:ncols) {
 48 
for (i in 1:nrows) { for (j in 1:ncols) {
45 
    if (iris[i,j] != iris.sdf[i,j]) stop("Not equal on ", i, ",", j, "\n")
 49 
    if (iris[i,j] != iris.sdf[i,j]) stop("Not equal on ", i, ",", j, "\n")
46 
}}
 50 
}}
47 
for (j in 1:ncols) {
51 
for (j in 1:ncols) {
48 
    sv <- iris.sdf[[j]]; # test sqlite.vector
 52 
    sv <- iris.sdf[[j]]; # test sqlite.vector
- 
 
 53 
    stopifnot(class(sv) == "sqlite.vector", is.typeSvec(sv, class(iris[[j]])[1]))
49 
    if (length(sv) != nrows) stop("Unexpected # of rows for col", j, "\n")
 54 
    if (length(sv) != nrows) stop("Unexpected # of rows for col", j, "\n")
50 
    for (i in 1:nrows)
 55 
    for (i in 1:nrows)
51 
        if (sv[i] != iris[i,j]) stop("Not equal on", i, "on col", j, "\n")
 56 
        if (sv[i] != iris[i,j]) stop("Not equal on", i, "on col", j, "\n")
52 
}
 57 
}
53 
for (j in names(iris)) {
58 
for (j in names(iris)) {
54 
    sv <- iris.sdf[[j]]; # test sqlite.vector
 59 
    sv <- iris.sdf[[j]]; # test sqlite.vector
- 
 
 60 
    stopifnot(class(sv) == "sqlite.vector", is.typeSvec(sv, class(iris[[j]])[1]))
55 
    if (length(sv) != nrows) stop("Unexpected # of rows for col", j, "\n")
 61 
    if (length(sv) != nrows) stop("Unexpected # of rows for col", j, "\n")
56 
    for (i in 1:nrows)
 62 
    for (i in 1:nrows)
57 
        if (sv[i] != iris[i,j]) stop("Not equal on", i, "on col", j, "\n")
 63 
        if (sv[i] != iris[i,j]) stop("Not equal on", i, "on col", j, "\n")
58 
}
 64 
}
59 
#iris.sdf.project <- iris[,1:4]
 - 
 
60 
 
 65 
 
61 
# test operators
 66 
# test operators
62 
stopifnot(all((iris.sdf[,1] + iris.sdf[,2]) == (iris[,1] + iris[,2])))
 67 
stopifnot(all((iris.sdf[,1] + iris.sdf[,2]) == (iris[,1] + iris[,2])))
63 
stopifnot(all((iris.sdf[,1]*10 %/% iris.sdf[,2]) == (iris[,1]*10 %/% iris[,2])))
 68 
stopifnot(all((iris.sdf[,1]*10 %/% iris.sdf[,2]) == (iris[,1]*10 %/% iris[,2])))
64 
stopifnot(all(signif(log(iris.sdf[,1],17)) == signif(log(iris[,1],17))))
 69 
stopifnot(all(signif(log(iris.sdf[,1],17)) == signif(log(iris[,1],17))))
Line 66... Line 71...
66 
stopifnot(all(with(iris.sdf, Sepal.Length*Sepal.Width - Petal.Length/Petal.Width) == with(iris, Sepal.Length*Sepal.Width - Petal.Length/Petal.Width)))
 71 
stopifnot(all(with(iris.sdf, Sepal.Length*Sepal.Width - Petal.Length/Petal.Width) == with(iris, Sepal.Length*Sepal.Width - Petal.Length/Petal.Width)))
67 
 
 72 
 
68 
stopifnot(sapply(iris.sdf[,1:4],sum) == sapply(iris[,1:4],sum))
 73 
stopifnot(sapply(iris.sdf[,1:4],sum) == sapply(iris[,1:4],sum))
69 
 
 74 
 
70 
# test summary
 75 
# test summary
71 
for (j in 1:5) stopifnot(all(summary(iris.sdf[,j]) == summary(iris[,j])))
 76 
#for (j in 1:5) stopifnot(all(summary(iris.sdf[,j]) == summary(iris[,j])))
72 
iris.sdf.summary <- summary(iris.sdf)
 77 
#iris.sdf.summary <- summary(iris.sdf)
73 
iris.summary <- summary(iris)
 78 
#iris.summary <- summary(iris)
74 
stopifnot(all(iris.sdf.summary[,1:4] == iris.summary[,1:4]))
 79 
#stopifnot(all(iris.sdf.summary[,1:4] == iris.summary[,1:4]))
75 
stopifnot(all(na.exclude(iris.sdf.summary[,5])==na.exclude(iris.summary[,5])))
 80 
#stopifnot(all(na.exclude(iris.sdf.summary[,5])==na.exclude(iris.summary[,5])))