

Study with the several resources on Docsity
Earn points by helping other students or get them with a premium plan
Prepare for your exams
Study with the several resources on Docsity
Earn points to download
Earn points by helping other students or get them with a premium plan
Introduction to R. 2016-‐2017. Cheat Sheet – Analysis of Variance (2 way factorial anova, actually). Dear R learner, This is a work in progress, ...
Typology: Summaries
1 / 3
This page cannot be seen from the preview
Don't miss anything!


setwd(“/Users/cbigelow/Desktop/”) install.packages(“openxlsx”) # Excel data (.xlsx) library(openxlsx) dat <- read.xlsx(“myexceldata.xlsx.dta”) install.packages(“readstata13”) library(readstata13) dat <- read.dta13(“mystatadata.dta”, convert.factors=FALSE) # Stata data (.dta) install.packages(“haven”) library(haven) dat <- read_sas(“mysasdata.sas7bdat”) # SAS data (.sas7bdat)
levels(dat$drug) # List levels levels(dat$drug) = c(“control”, “tx”, “other”) # Give levels names
dat$drug <- as.factor(dat$drug) dat$season <- as.factor(dat$season)
require(stats) tapply(dat$yvar, list(dat$drug, dat$season), mean) # 2 way table of means (handy) install.packages(“doBy”) library(doBy) options(digits=6) summaryBy(yvar ~ drug + season, data=dat, FUN=c(length, mean, sd), fun.names=c(“n”, “mean”, “sd”)) # n, mean, sd within all groups
install.packages(“ggplot2”) library(ggplot2) blank <- ggplot(data=dat, aes(x=season, y=yvar)) # Initialize. Nothing plotted yet blank2 <- blank + labs(title=”line1\nline2”) # Note \n to obtain 2 line title points <- blank2 + geom_point( ) # Plot scatterplot pointsbox <- points + geom_boxplot(aes(color=season)) # Overlay box plot
plot.design(yvar ~ drug*season, data=dat, main=”Main Effects Plot”)
install.packages(“sciplot”) library(sciplot) lineplot.CI(x.factor=drug, response=yvar, group=season, data=dat, trace.label=”Season”, xlab=”Drug”, ylab=”Mean of yvar”, main=”Interaction Plot”)
fit <- aov(yvar ~ drug*season, data=dat) # Option 1 fit <- aov(yvar ~ drug + season + drug:season, data-dat) # Option 2 (I prefer this) anova(fit) # show anova table summary(fit) # show more stuff