extended Rubin1981 data

data/Rubin1981.R

@@ -6,6 +6,7 @@
 #
 
 Rubin1981 <- data.frame("school"=c("A","B","C","D","E","F","G","H"),
-                         "effect"=c(28.39, 7.94, -2.75, 6.82, -0.64, 0.63, 18.01, 12.16),
-                         "stderr"=c(14.9, 10.2, 16.3, 11.0, 9.4, 11.4, 10.4, 17.6),
-                         stringsAsFactors=FALSE)
+                        "n"=as.integer(c(50, 79, 39, 91, 99, 72, 94, 35)),
+                        "effect"=c(28.39, 7.94, -2.75, 6.82, -0.64, 0.63, 18.01, 12.16),
+                        "stderr"=c(14.9, 10.2, 16.3, 11.0, 9.4, 11.4, 10.4, 17.6),
+                        stringsAsFactors=FALSE)

man/Rubin1981.Rd

@@ -7,6 +7,7 @@
 \format{The data frame contains the following columns:
   \tabular{lll}{
     \bold{school} \tab \code{character} \tab school identifier \cr
+    \bold{n}      \tab \code{integer}   \tab number of students \cr
     \bold{effect} \tab \code{numeric}   \tab effect estimate \cr
     \bold{stderr} \tab \code{numeric}   \tab associated standard error 
   }