if (FALSE) {
library(bigmemory)
x <- matrix(unlist(iris), ncol=5)
colnames(x) <- names(iris)
x <- as.big.matrix(x)
head(x)
silly.biglm <- biglm.big.matrix(Sepal.Length ~ Sepal.Width + Species,
data=x, fc="Species")
summary(silly.biglm)
y <- data.frame(x[,])
y$Species <- as.factor(y$Species)
head(y)
silly.lm <- lm(Sepal.Length ~ Sepal.Width + Species, data=y)
summary(silly.lm)
}
Run the code above in your browser using DataLab