- UID
- 124442
- 热情
- 2150
- 人气
- 735
- 主题
- 2
- 帖子
- 29365
- 精华
- 40
- 积分
- 16261
- 分享
- 0
- 记录
- 0
- 相册
- 0
- 好友
- 0
- 日志
- 0
- 在线时间
- 5488 小时
- 注册时间
- 2007-8-1
- 阅读权限
- 30
- 最后登录
- 2019-8-19
   
升级   25.22% - UID
- 124442
- 热情
- 2150
- 人气
- 735
- 主题
- 2
- 帖子
- 29365
- 精华
- 40
- 积分
- 16261
- 阅读权限
- 30
- 注册时间
- 2007-8-1
|
分析中使用的R code
CIE <-read.delim(file.choose(),header=T) # Reading in the dataset
CIE <-CIE[,-c(1,2,4,5,6,7,11)] # Deleting confidential variables
names(CIE)[1] <-"School"
CIE$Results <-toupper(CIE$Results)
CIE.AS <-CIE[CIE$Level=="ASL",]
CIE.A <-CIE[CIE$Level=="AL",]
table(CIE.AS$School,CIE.AS$Results)
table(CIE.A$School,CIE.A$Results)
CIE.AS.foo <-table(CIE.AS$School,CIE.AS$Results)[-c(1:2,4:7,9:11,14,16:17,19:23,25:26),]
# Deleting insignificantschools
chisq.test(CIE.AS.foo)
rowdistr(CIE.AS.foo,comp="between")
CIE.A.foo <-table(CIE.A$School,CIE.A$Results)[-c(1:2,4:6,9:11,13:16,18),]
# Deleting insignificantschools
chisq.test(CIE.A.foo)
rowdistr(CIE.A.foo,comp="between")CIE<- read.delim(file.choose(),header=T) # Reading in the dataset
CIE <-CIE[,-c(1,2,4,5,6,7,11)] # Deleting confidential variables
names(CIE)[1] <-"School"
CIE$Results <-toupper(CIE$Results)
CIE.AS <-CIE[Level=="ASL",]
CIE.A <-CIE[Level=="AL",]
table(CIE.AS$School,CIE.AS$Results)
table(CIE.A$School,CIE.A$Results)
CIE.AS.foo <-table(CIE.AS$School,CIE.AS$Results)[-c(1:2,4:7,9:11,14,16:17,19:23,25:26),]
# Deleting insignificantschools
chisq.test(CIE.AS.foo)
rowdistr(CIE.AS.foo,comp="between")
CIE.A.foo <-table(CIE.A$School,CIE.A$Results)[-c(1:2,4:6,9:11,13:16,18),]
# Deleting insignificantschools
chisq.test(CIE.A.foo)
rowdistr(CIE.A.foo,comp="between")
[ 本帖最后由 z-score 于 2008-3-4 13:34 编辑 ] |
|