[Sleuth2-commits] r43 - in pkg/Sleuth3: . inst/doc man
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Thu Aug 30 15:57:36 CEST 2012
Author: berwin
Date: 2012-08-30 15:57:35 +0200 (Thu, 30 Aug 2012)
New Revision: 43
Modified:
pkg/Sleuth3/DESCRIPTION
pkg/Sleuth3/inst/doc/Sleuth3-manual.pdf
pkg/Sleuth3/man/case1701.Rd
pkg/Sleuth3/man/ex0920.Rd
pkg/Sleuth3/man/ex1030.Rd
pkg/Sleuth3/man/ex1225.Rd
pkg/Sleuth3/man/ex1518.Rd
Log:
Replaced some .Rd files with new versions provided by Dan.
Updated inst/doc/Sleuth3-manual.pdf
Bumped version number.
Modified: pkg/Sleuth3/DESCRIPTION
===================================================================
--- pkg/Sleuth3/DESCRIPTION 2012-08-30 09:16:54 UTC (rev 42)
+++ pkg/Sleuth3/DESCRIPTION 2012-08-30 13:57:35 UTC (rev 43)
@@ -1,6 +1,6 @@
Package: Sleuth3
Title: Data sets from Ramsey and Schafer's "Statistical Sleuth (3rd ed)"
-Version: 0.1-0
+Version: 0.1-1
Date: 2012-08-30
Author: Original by F.L. Ramsey and D.W. Schafer,
modifications by Daniel W. Schafer, Jeannie Sifneos and Berwin A. Turlach
Modified: pkg/Sleuth3/inst/doc/Sleuth3-manual.pdf
===================================================================
(Binary files differ)
Modified: pkg/Sleuth3/man/case1701.Rd
===================================================================
--- pkg/Sleuth3/man/case1701.Rd 2012-08-30 09:16:54 UTC (rev 42)
+++ pkg/Sleuth3/man/case1701.Rd 2012-08-30 13:57:35 UTC (rev 43)
@@ -16,12 +16,13 @@
each of the equally-spaces positions 1, 2, \dots, 11 on the
printer rod\cr
\code{Current} \tab electric current passing through the rod, with
- three levels \code{"0"}, \code{"250"} and \code{"500"} (milliamperes)\cr
+ three levels \code{"0"}, \code{"250"} and \code{"500"}\cr
+ (milliamperes)
\code{Configur} \tab a factor identifying the configuration, with
two levels \code{"0"} and \code{"1"}\cr
\code{Material}\tab a factor identifying the type of metal from
- which the rod was made, with four levels
- \code{"1"}, \code{"2"}, \code{"3"} and \code{"4"}\cr
+ which the rod was made, with four levels\cr
+ \code{"1"}, \code{"2"}, \code{"3"} and \code{"4"}
}
}
\source{
@@ -49,7 +50,7 @@
# Coefficients are all very similar, suggesting a constant coefficient; use 1/11
mfAve <- (L1 + L2 + L3 + L4 + L5 + L6 + L7 + L8 + L9 + L10 + L11)/11
mfScores <- mfPca$x
-pc1 <- mfScores[,1] # Values for first principal component of MagneticForces
+pc1 <- mfScores[,1] #Values for first principal component of MagneticForces
cor(mfAve,pc1) # correlation of the average and the first PC (=0.999567)
plot(pc1 ~ mfAve)
@@ -59,12 +60,12 @@
# positive on the right end. Try Ave(L9 + L10 + L11) - Ave(L1 + L2 + L3).
mfEnds <- (L9 + L10 + L11)/3 - (L1 + L2 + L3)/3
pc2 <- mfScores[,2]
-residualEnds <- lm(mfEnds ~ mfAve)$residual # Ends with average effect removed
+residualEnds <- lm(mfEnds ~ mfAve)$residual # Ends with average effect removed
plot(pc2 ~ residualEnds)
cor(residualEnds, pc2) # 0.973
# Explore a possible meaningful linear combination suggested by third PC
-round(mfCoefs[,3],1) # Show doefficients of 3rd pc, rounded to 1 digit
+round(mfCoefs[,3],1) # Show doefficients of 3rd pc, rounded to 1 digit
# Try a contrast between the first 4 positions and the 6th position
mfPeak <- (L1 + L2 + L3 + L4)/4 - L6
pc3 <- mfScores[,3]
Modified: pkg/Sleuth3/man/ex0920.Rd
===================================================================
--- pkg/Sleuth3/man/ex0920.Rd 2012-08-30 09:16:54 UTC (rev 42)
+++ pkg/Sleuth3/man/ex0920.Rd 2012-08-30 13:57:35 UTC (rev 43)
@@ -30,7 +30,7 @@
Course in Methods of Data Analysis (3rd ed)}, Cengage Learning.
}
\references{
- Kentucky Derby: Kentucky Derby Racing Results,
+ Kentucky Derby: Kentucky Derby Racing Results, \cr
\url{http://www.kentuckyderby.info/kentuckyderby-results.php} (July 21, 2011).
}
\examples{
Modified: pkg/Sleuth3/man/ex1030.Rd
===================================================================
--- pkg/Sleuth3/man/ex1030.Rd 2012-08-30 09:16:54 UTC (rev 42)
+++ pkg/Sleuth3/man/ex1030.Rd 2012-08-30 13:57:35 UTC (rev 43)
@@ -31,9 +31,9 @@
\item{\code{EducationCategory}}{a factor with 16 levels:
\code{"SomeCollegeButNoDegree"}, \code{"AssocDegAcadem"},
\code{"NinthGrade"}, \code{"BachelorsDegree"}, \code{"TenthGrade"},
- \code{"HighSchoolDiploma"},
- \code{"AssocDegOccupVocat"}, \code{"DoctorateDegree"}, \code{"TwelthButNoDiploma"},
- \code{"LessThanFirstGrade"}, \code{"EleventhGrade"}, \code{"ProfSchoolDegree"},
+ \code{"HighSchoolDiploma"}, \cr
+ \code{"AssocDegOccupVocat"}, \code{"DoctorateDegree"}, \code{"TwelthButNoDiploma"},\cr
+ \code{"LessThanFirstGrade"}, \code{"EleventhGrade"}, \code{"ProfSchoolDegree"},\cr
\code{"FifthorSixthGrade"},\code{"SeventhOrEighthGrade"}, \code{"FirstSecondThirdOrFourthGrade"}}
\item{\code{EducationCode}}{a numerical variable indicating the approximate
ordering of EducationCategory, with higher numbers indicating more
Modified: pkg/Sleuth3/man/ex1225.Rd
===================================================================
--- pkg/Sleuth3/man/ex1225.Rd 2012-08-30 09:16:54 UTC (rev 42)
+++ pkg/Sleuth3/man/ex1225.Rd 2012-08-30 13:57:35 UTC (rev 43)
@@ -16,7 +16,7 @@
\item{\code{Region}}{a factor with levels \code{"Midwest"}, \code{"Northeast"},
\code{"South"}, and \code{"West"}}
\item{\code{MetropolitanStatus}}{a a factor with levels \code{"Metropolitan"},
- \code{"Not Identified"}, and
+ \code{"Not Identified"}, and \cr
\code{"Not Metropolitan"}}
\item{\code{Age}}{age in years}
\item{\code{Sex}}{a factor with levels \code{"Female"} and \code{"Male"}}
Modified: pkg/Sleuth3/man/ex1518.Rd
===================================================================
--- pkg/Sleuth3/man/ex1518.Rd 2012-08-30 09:16:54 UTC (rev 42)
+++ pkg/Sleuth3/man/ex1518.Rd 2012-08-30 13:57:35 UTC (rev 43)
@@ -23,7 +23,7 @@
Course in Methods of Data Analysis (3rd ed)}, Cengage Learning.
}
\references{
- Center for Disease Control,
+ Center for Disease Control,\cr
\url{http://www.cdc.gov/vaccines/pubs/pinkbook/downloads/appendices/G/cases& deaths.PDF}
retrieved on July 23, 2009
}
More information about the Sleuth2-commits
mailing list