R语言 Sleuth2包 case0601()函数中文帮助文档(中英文对照)

loveR

case0601(Sleuth2)
case0601()所属R语言包：Sleuth2

                                        Discrimination Against the Handicapped
                                         歧视残疾人

                                         译者：生物统计家园网 机器人LoveR

描述----------Description----------

Study explores how physical handicaps affect people's perception of employment qualifications.  Researchers prepared 5 videotaped job interviews using actors with a script designed to reflect an interview with an applicant of average qualifications.  The 5 tapes differed only in that the applicant appeared with a different handicap in each one.  Seventy undergraduate students were randomly assigned to view the tapes and rate the qualification of the applicant on a 0-10 point scale.
研究探讨物理障碍如何影响人们的就业资格的观感。研究人员准备了5录像面试时使用演员，脚本设计，以反映与申请人的平均资格接受记者采访时。 5磁带仅在不同申请人，出现与在每一个不同的障碍。七十本科学生被随机分配在0-10点的规模，，查看磁带和评价申请人的资格。


用法----------Usage----------


case0601



格式----------Format----------

A data frame with 70 observations on the following 2 variables.   
70观察以下2个变量的数据框。

Scoreis the score each student gave to the applicant
Score是每个学生给申请人的得分

Handicapis a factor variable with 5 levels—"None", "Amputee", "Crutches", "Hearing" and  "Wheelchair"   
Handicap是一个因素变量与5级"None"，"Amputee"，"Crutches"，"Hearing"和"Wheelchair"


源----------Source----------

Ramsey, F.L. and Schafer, D.W. (2002). The Statistical Sleuth: A Course in Methods of Data Analysis (2nd ed), Duxbury.
拉姆齐，F.L.和Schafer，D.W. （2002年）。的统计的猎犬：A课程方法的数据分析（第二版），达克斯伯里。


参考文献----------References----------

Cesare, S.J., Tannenbaum, R.J. and Dalessio, A. (1990). Interviewers' Decisions Related to Applicant Handicap Type and Rater Empathy, Human Performance 3(3): 157–171.

实例----------Examples----------


str(case0601)
boxplot(Score~Handicap, data=case0601, ylab="Score")
aov.handicap <- aov(Score ~ Handicap, case0601)
summary(aov.handicap)
TukeyHSD(aov.handicap)

#Calculate confidence interval for linear combination[计算的置信区间的线性组合]
#(wheelchair+crutches)/2 - (amputee+hearing)/2 as in Display 6.4[（轮椅拐杖）/ 2  - （截肢者+听力）/ 2显示6.4]
mean.handicaps <- with(case0601, tapply(Score, Handicap, mean))
var.handicaps <- with(case0601, tapply(Score, Handicap, var))

n <- 14
s.pooled <- sqrt(sum((n-1)*var.handicaps)/sum((n-1)*5))

## either[＃在]
cr.wh <- mean.handicaps["Wheelchair"] + mean.handicaps["Crutches"]
am.he <- mean.handicaps["Amputee"] + mean.handicaps["Hearing"]
g <- cr.wh/2 - am.he/2
## or[＃]
contr <- c(0, -1, 1, -1, 1)/2
g <- sum(contr * mean.handicaps)

se.g <- s.pooled * sqrt(sum(contr^2)/n)
t.65 <- qt(.975, 65)
## ci[＃词]
g + c(-1,1) * t.65 * se.g

转载请注明:出自 生物统计家园网(http://www.biostatistic.net)。


注：
注1：为了方便大家学习，本文档为生物统计家园网机器人LoveR翻译而成，仅供个人R语言学习参考使用，生物统计家园保留版权。
注2：由于是机器人自动翻译，难免有不准确之处，使用时仔细对照中、英文内容进行反复理解，可以帮助R语言的学习。
注3：如遇到不准确之处，请在本贴的后面进行回帖，我们会逐渐进行修订。