[Rcpp-commits] r3079 - in pkg: RcppArmadillo/inst/unitTests RcppEigen/inst/unitTests RcppGSL/inst/unitTests
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Wed Jun 15 20:19:04 CEST 2011
Author: edd
Date: 2011-06-15 20:19:04 +0200 (Wed, 15 Jun 2011)
New Revision: 3079
Modified:
pkg/RcppArmadillo/inst/unitTests/runit.fastLm.R
pkg/RcppEigen/inst/unitTests/runit.fastLm.R
pkg/RcppGSL/inst/unitTests/runit.fastLm.R
Log:
better way to load trees dataset
Modified: pkg/RcppArmadillo/inst/unitTests/runit.fastLm.R
===================================================================
--- pkg/RcppArmadillo/inst/unitTests/runit.fastLm.R 2011-06-15 18:15:50 UTC (rev 3078)
+++ pkg/RcppArmadillo/inst/unitTests/runit.fastLm.R 2011-06-15 18:19:04 UTC (rev 3079)
@@ -1,6 +1,6 @@
#!/usr/bin/r -t
#
-# Copyright (C) 2010 Dirk Eddelbuettel, Romain Francois and Douglas Bates
+# Copyright (C) 2010 - 2011 Dirk Eddelbuettel, Romain Francois and Douglas Bates
#
# This file is part of RcppArmadillo.
#
@@ -23,7 +23,7 @@
}
test.fastLm <- function() {
- data(trees)
+ data(trees, package="datasets")
flm <- .Call("fastLm",
cbind(1, log(trees$Girth)),
log(trees$Volume),
@@ -37,7 +37,7 @@
}
test.fastLm.formula <- function() {
- data(trees)
+ data(trees, package="datasets")
flm <- fastLm(log(Volume) ~ log(Girth), data=trees)
fit <- lm(log(Volume) ~ log(Girth), data=trees)
Modified: pkg/RcppEigen/inst/unitTests/runit.fastLm.R
===================================================================
--- pkg/RcppEigen/inst/unitTests/runit.fastLm.R 2011-06-15 18:15:50 UTC (rev 3078)
+++ pkg/RcppEigen/inst/unitTests/runit.fastLm.R 2011-06-15 18:19:04 UTC (rev 3079)
@@ -23,7 +23,7 @@
}
test.fastLm <- function() {
- data(trees)
+ data(trees, package="datasets")
flm <- .Call("fastLm",
cbind(1, log(trees$Girth)),
log(trees$Volume),
@@ -37,7 +37,7 @@
}
test.fastLm.Bench <- function() {
- data(trees)
+ data(trees, package="datasets")
flm <- .Call("fastLmBench",
cbind(1, log(trees$Girth)),
log(trees$Volume),
@@ -51,7 +51,7 @@
}
test.fastLm.Chol1 <- function() {
- data(trees)
+ data(trees, package="datasets")
flm <- .Call("fastLmChol1",
cbind(1, log(trees$Girth)),
log(trees$Volume),
@@ -65,7 +65,7 @@
}
test.fastLm.Chol2 <- function() {
- data(trees)
+ data(trees, package="datasets")
flm <- .Call("fastLmChol2",
cbind(1, log(trees$Girth)),
log(trees$Volume),
@@ -79,7 +79,7 @@
}
test.fastLm.formula <- function() {
- data(trees)
+ data(trees, package="datasets")
flm <- fastLm(log(Volume) ~ log(Girth), data=trees)
fit <- lm(log(Volume) ~ log(Girth), data=trees)
Modified: pkg/RcppGSL/inst/unitTests/runit.fastLm.R
===================================================================
--- pkg/RcppGSL/inst/unitTests/runit.fastLm.R 2011-06-15 18:15:50 UTC (rev 3078)
+++ pkg/RcppGSL/inst/unitTests/runit.fastLm.R 2011-06-15 18:19:04 UTC (rev 3079)
@@ -19,7 +19,7 @@
# along with RcppGSL. If not, see <http://www.gnu.org/licenses/>.
test.fastLm <- function() {
- data(trees)
+ data(trees, package="datasets")
flm <- .Call("fastLm",
cbind(1, log(trees$Girth)),
log(trees$Volume),
@@ -33,7 +33,7 @@
}
test.fastLm.formula <- function() {
- data(trees)
+ data(trees, package="datasets")
flm <- fastLm(log(Volume) ~ log(Girth), data=trees)
fit <- lm(log(Volume) ~ log(Girth), data=trees)
More information about the Rcpp-commits
mailing list