n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
getwd()
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
2 + 2
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
n <- 50
x <- seq(1, n)
a.true <- 3
b.true <- 1.5
y.true <- a.true + b.true * x
s.true <- 17.3
y <- y.true + s.true * rnorm(n)
out1 <- lm(y ~ x)
summary(out1)
'org_babel_R_eoe'
out2 <- lm(y ~ x + I(x^2))
foo <- anova(out1, out2, out3)
foo
'org_babel_R_eoe'
class(foo)
'org_babel_R_eoe'
dim(foo)
'org_babel_R_eoe'
foo <- as.matrix(foo)
foo
'org_babel_R_eoe'
library(xtable)
xtable(foo, caption = "ANOVA Table", label = "tab:one",
    digits = c(0, 0, 2, 0, 2, 3, 3))
'org_babel_R_eoe'
