a = rnorm(200)
b = rnorm(200)
table = data.frame(
x = c(a),
y = c(b)
)
aov.manu <- aov(y ~ x, data=table)
summary(aov.manu)
a = rnorm(200)
b = rnorm(200)
table = data.frame(
x = c(a),
y = c(b)
)
aov.manu <- aov(y ~ x, data=table)
summary(aov.manu)