Mean test

Introduciton

The current tiem is Wed Mar 02 15:01:44 2016. My favortie random number is -0.6203667.

Let’s first simulate soem data

set.seed(1)
x <- rnorm(100)
y <- x + rnorm(100,sd=0.5)

Here is a scatterplot of the data

par(mar = c(5,4,1,1), las = 1)
plot(x,y, main = "My Simulate Data")

Make table of the summary

library(datasets)
data("airquality")
fit <- lm(Ozone ~ Wind + Solar.R + Temp, data = airquality)
library(xtable)
xt <- xtable(summary(fit))
print(xt, type = "html")
Estimate Std. Error t value Pr(>|t|)
(Intercept) -64.3421 23.0547 -2.79 0.0062
Wind -3.3336 0.6544 -5.09 0.0000
Solar.R 0.0598 0.0232 2.58 0.0112
Temp 1.6521 0.2535 6.52 0.0000