this is the test
n = 100
x = rnorm(n)
y = 2 * x + rnorm(n)
plot(x, y, main = "hello")
n = 100
x = rnorm(n)
y = 3 * x + rnorm(n)
out = lm(y ~ x)
library(xtable)
tab = xtable(summary(out)$coef, digits = 2)
print(tab, type = "html")
| Estimate | Std. Error | t value | Pr(> |t|) | |
|---|---|---|---|---|
| (Intercept) | -0.01 | 0.10 | -0.06 | 0.95 |
| x | 2.92 | 0.09 | 32.28 | 0.00 |