Hiding Results

Here is a code chunk but it doesn’t print anything!

Inline TExt Computations

Here I will use the variables computed above:

The current time is sáb mar 03 16:16:23 2018. My favorite random number is -0.6203667.

Incorporating Graphics

Let’s first simulate some data

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="Simulated Data")

Making Tables with xtable

First I work out the model

library(datasets)
data("airquality")
library(stats)
fit<-lm(Ozone~Wind+ Solar.R + Temp,data=airquality)

Then I print the table of regrression coefficients

library(xtable)
xt<-xtable(summary(fit))
print(xt, type = "html")