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

loveR

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

                                        Oat Bran and Cholesterol
                                         燕麦麸和胆固醇

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

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

In a randomized, double-blind, crossover experiment, researchers randomly assigned 20 volunteer hospital employees to either a low-fiber or low-fiber treatment group. The subjects followed the diets for six weeks. After two weeks on their normal diet, all patients crossed over to the other treatment group for another six weeks.  The total serum cholesterol (in mg/dl) was measured on each patient before the first treatment, at the end of the first six week treatment, and at the end of the second six week treatment.
在一项随机，双盲，交叉试验中，研究人员随机分配的20个志愿者医院员工，无论是低纤维或低纤维治疗组。在随后的饮食六个星期。对他们的正常饮食两周后，所有患者越过其他治疗组的另外六个星期。测定对每个病人的血清总胆固醇浓度（以mg / dl）之前的第一处理，在结束的前六个周的治疗，并在端部的所述第二6周的治疗。


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


case1602



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

A data frame with 20 observations on the following 4 variables.   
与20个观察值的以下4个变量的数据框。

Baselinetotal serum cholesterol before treatment
Baseline治疗前的血清总胆固醇

Hifibertotal serum cholesterol after the high fiber diet
Hifiber血清总胆固醇，高纤维饮食后

Lofibertotal serum cholesterol after the low fiber diet
Lofiber后血清总胆固醇，低纤维饮食

Orderfactor to identify order of treatment, with two levels "HL" and "LH"   
Order因素，以确定订单的处理，有两个层次的"HL"和"LH"的


源----------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----------

Swain, J.F., Rouse, I.L., Curley, C.B., and Sacks, F.M. (1990). Comparison of the Effects of Oat Bran and Low-fiber  Wheat on Serum Lipoprotein Levels and Blood Pressure, New England Journal of Medicine 320: 1746–1747.

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


str(case1602)

subjects <- 1:20
ordersubjects <- order(case1602$Baseline)
plot(1:20, case1602$Baseline[ordersubjects], pch=24,
     xlab="Subjects (Ordered According to Baseline Cholesterol)",
     ylab="Total Serum Cholesterol (mg/dl)")
points(1:20, case1602$Lofiber[ordersubjects], pch=19, col=5)
points(1:20, case1602$Hifiber[ordersubjects], pch=21, col=3)
legend(1,245,legend=c("Baseline","After Low Fiber Diet","After High Fiber Diet"),pch=c(24,19,21),col=c(1,5,3))

diff <- with(case1602, Hifiber-Lofiber)
plot(subjects, diff, pch=ifelse(case1602$Order=="HL",19,21))
abline(h=0)
t.test(diff ~ Order, case1602) # Test for order of treatment effect[为了测试的治疗效果]
t.test(diff) # Test for treatment effect[治疗效果试验]

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


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