# include this code chunk as-is to set options knitr::opts_chunk$set(comment=NA, prompt=TRUE) library(Rcmdr) library(car) library(RcmdrMisc)
load("/home/ken/teaching/btstan/R/stuff.txt")
load("/home/ken/teaching/btstan/R/xy.txt")
load("/tmp/RtmpWIGVLY/xy")
scatterplot(y~x, reg.line=FALSE, smooth=FALSE, spread=FALSE, boxplots=FALSE, span=0.5, ellipse=FALSE, levels=c(.5, .9), data=xy)
with(xy, lineplot(x, y))
scatterplot(y~x, reg.line=lm, smooth=FALSE, spread=FALSE, boxplots='xy', span=0.5, ellipse=FALSE, levels=c(.5, .9), data=xy)
scatterplot(y~x, reg.line=lm, smooth=FALSE, spread=FALSE, boxplots=FALSE, span=0.5, ellipse=FALSE, levels=c(.5, .9), data=xy)
scatterplot(y~x, reg.line=lm, smooth=FALSE, spread=FALSE, boxplots=FALSE, span=0.5, ellipse=FALSE, levels=c(.5, .9), data=xy)
RegModel.1 <- lm(y~x, data=xy) summary(RegModel.1)
Anova(RegModel.1, type="II")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.