第四项

#数学成绩和教师学生比例以及父母受教育年限相关,教师学生比例为第一层,父母受教育年限为第二层。

library(foreign, pos=18)
Dataset <- read.spss("http://www.ats.ucla.edu/stat/stata/examples/mlm_imm/imm23.dta", convert.dates=TRUE,
convert.factors=TRUE, missing.type=TRUE, convert.underscore=TRUE,
warn.missing.labels=TRUE))
colnames(Dataset) <- tolower(colnames(Dataset))
attach(Dataset)
library(nlme)
jieguo<- lme(math~1+ sex ,random=~(1+sex)|parented , data=Dataset)
summary(jieguo)
intervals(jieguo)

第二项作业

数据来源:GREEN&SALKIND(2005).Data,Lesson 24.One-Way Analysis of Variance,Lesson 24 Exercise File 2

数据百度云地址:http://pan.baidu.com/s/1eQTQdwQ

Dataset <- read.spss("/Users/zhangpengfei/Desktop/Lesson 24 Exercise File 2.sav",
use.value.labels=TRUE, max.value.labels=Inf, to.data.frame=TRUE)
attach(Dataset)
table(trouble) #各组样本大小
aggregate(trouble,by=list(class),FUN=mean)#各组均值
aggregate(trouble,by=list(class),FUN=sd)#各组标准差
fit <- aov(trouble~class)
summary(fit)#检测组间差异
library(multcomp)
h1 <- glht(lm)
confint(h1)