Vaio — Sep 10, 2013, 7:37 PM
getwd()
[1] "C:/Users/Public/Documents/R Project/Intro Tutorial"
n <- 80
a <- 1.5
b <- 5
sigSq <- .4
x <- runif(n)
y <- a + b * x + rnorm(n, sd=sqrt(sigSq))
(avgX <- mean(x))
[1] 0.5698
plot(x,y)
abline(a,b,col="brown")
sessionInfo()
R version 3.0.1 (2013-05-16)
Platform: x86_64-w64-mingw32/x64 (64-bit)
locale:
[1] LC_COLLATE=English_United States.1252
[2] LC_CTYPE=English_United States.1252
[3] LC_MONETARY=English_United States.1252
[4] LC_NUMERIC=C
[5] LC_TIME=English_United States.1252
attached base packages:
[1] stats graphics grDevices utils datasets methods base
other attached packages:
[1] knitr_1.4.1
loaded via a namespace (and not attached):
[1] digest_0.6.3 evaluate_0.4.7 formatR_0.9 stringr_0.6.2
[5] tools_3.0.1