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

loveR

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

                                        Logging and Water Quality
                                         记录和水质

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

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

Data from an observational study of nitrate levels measured at three week intervals for five years in two watersheds. One of the watersheds was undisturbed and the other had been logged with a patchwork pattern.
在三个星期的时间间隔为5年，两流域一项观察性研究的硝酸盐含量测量数据。的分水岭之一是不受干扰和其他与错落有致的格局已经登入。


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


case1501



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

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

Weekweek after the start of the study
Week周后，在研究开始

Patchresidual nitrate level in the logged watershed (ppm) (see Display 15.3 of Statistical Sleuth)  
Patch硝态氮残留记录的分水岭水平（PPM）（见统计猎犬显示15.3）

Nocutresidual nitrate level in the undisturbed watershed (ppm)   
Nocut剩余的硝酸盐含量在不受干扰的分水岭（PPM）


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

Harr, R.D., Friderksen, R.L., and Rothacher, J. (1979). Changes in Streamflow Following Timber Harvests in Southwestern Oregon, USDA/USFS Research Paper PNW-249, Pacific NW Forest and Range Experiment Station, Portland, Oregon.

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


str(case1501)

par(mfrow=c(2,1)) # Make 2 plots on one page[在一个页面上2图]
plot(Nocut ~ Week, case1501)
plot(Patch ~ Week, case1501)
par(mfrow=c(1,1))
lag.plot(case1501$Nocut,do.lines=FALSE)
lag.plot(case1501$Patch,do.lines=FALSE)

# Compute pooled estimate of first autocorrelation coefficient[的第一自相关系数计算汇集估计]
# First auto covariance, Nocut[中国第一汽车协方差，Nocut]
ac1nocut <- acf(case1501$Nocut,lag.max=1,type="covariance",plot=FALSE)$acf[2]
n <- length(case1501$Nocut)
# Zeroth autocovariance for Nocut[零级自相关Nocut]
ac0nocut <- var(case1501$Nocut[2:n])*(n-2)/(n-1)
# First auto covariance, Patch[中国第一汽车协方差，补丁]
ac1patch <- acf(case1501$Patch,lag.max=1,type="covariance",plot=FALSE)$acf[2]
# Zeroth autocovariance for PATCH[零阶自相关PATCH]
ac0patch <- var(case1501$Patch [2:n])*(n-2)/(n-1)

ac1pool <- (ac1nocut + ac1patch)/2
ac0pool <- (ac0nocut + ac0patch)/2

acorr1 <- ac1pool/ac0pool
acorr1  # Pooled estimate of first lag serial coefficient[第一滞后的串行数据的汇总估计]

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


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