# 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")


nxskok/btstan documentation built on May 24, 2019, 11:51 a.m.