version 0.1-0.0

DESCRIPTION

@@ -1,24 +1,28 @@
 Package: SGP
-Version: 0.0-8.5
-Date: 2011-5-20
+Version: 0.1-0.0
+Date: 2011-6-15
 Title: An R Package for the Calculation and Visualization of Student
         Growth Percentiles.
 Author@R: c(person("Damian", "Betebenner",
         email="dbetebenner@nciea.org"), person("Adam", "Van Iwaarden",
         email="Vaniwaarden@colorado.edu"))
-Author: Damian W. Betebenner <dbetebenner@nciea.org>, with
-        contributions from Adam Van Iwaarden, Jonathan Weeks, John
-        Stewart, Jinnie Choi, Xin Wei, and Hi Shin Shim. With special
-        thanks to State Department of Education analysts: Rebecca Gau
-        (Arizona), Marie Huchton (Colorado), Dr. Wes Bruce (Indiana),
-        Robert Hochsegang (Indiana), Robert Lee (Massachusetts), Soo
-        Yeon Cho (Missouri), Ana Karantonis (Rhode Island), Dr. Deborah
-        Jonas (Virginia), Dr. Philip Olsen (Wisconsin), Nick Stroud
+Author: Damian W. Betebenner <dbetebenner@nciea.org> and Adam Van
+        Iwaarden <Vaniwaarden@colorado.edu> with contributions from
+        Jonathan Weeks, Ben Domingue, John Stewart, Jinnie Choi, Xin
+        Wei, and Hi Shin Shim. With special thanks to State Department
+        of Education analysts: Rebecca Gau (Arizona), Marie Huchton
+        (Colorado), Dr. Carissa Miller (Idaho), Dr. Wes Bruce
+        (Indiana), Robert Hochsegang (Indiana), Xuewen Sheng (Kansas),
+        Robert Lee (Massachusetts), Ken Thompson (Mississippi), Soo
+        Yeon Cho (Missouri), Jeff Halsell (Nevada), Selcuk Ozdemir
+        (Nevada), Deb Wiswell (New Hampshire), Ana Karantonis (Rhode
+        Island), Dr. Deborah Jonas (Virginia), Joseph Newton
+        (Wisconsin), Dr. Philip Olsen (Wisconsin), Nick Stroud
         (Wisconsin).
 Maintainer: Damian W. Betebenner <dbetebenner@nciea.org>
-Depends: R (>= 2.10), boot, colorspace, data.table (>= 1.5.3), foreach,
-        grid, gridBase, gtools, plyr, quantreg, sn, splines
-Suggests: pdf2
+Depends: R (>= 2.10), data.table (>= 1.5.3), foreach, grid, methods,
+        plyr, quantreg, splines
+Suggests: boot, colorspace, gridBase, pdf2, randomNames, sn
 Description: Functions to calculate student growth percentiles and
         percentile growth projections/trajectories for students using
         large scale, longitudinal assessment data.  Functions use
@@ -35,6 +39,6 @@ LazyData: Yes
 License: CC BY-SA 3.0 US | CC BY-NC-SA 3.0 + file LICENSE
 Repository: CRAN
 Repository/R-Forge/Project: sgp
-Repository/R-Forge/Revision: 126
-Date/Publication: 2011-05-21 20:15:01
-Packaged: 2011-05-20 20:44:26 UTC; rforge
+Repository/R-Forge/Revision: 127
+Date/Publication: 2011-06-18 17:04:28
+Packaged: 2011-06-17 21:02:12 UTC; rforge

R/SGP-class.R

@@ -0,0 +1,19 @@
+setClassUnion("list.null",c("list","NULL"))
+
+setOldClass(c('data.frame')) 
+setOldClass(c('data.table', 'data.frame')) 
+setClass("SGP",representation(Data="data.table", Variable_Name_Lookup="data.frame", SGP="list.null", Summary="list.null"))
+
+.Valid.SGP <- function(object) {
+	out <- NULL
+
+
+	## RUN A SET OF CHECKS ON THE SPECIFIED VARIABLES TO ENSURE THAT THE
+	## SCORES ARE WITHIN ACCEPTABLE LIMITS AND THE VARIABLES HAVE THE 
+	## PROPER VARIABLE TYPE
+
+	if (is.null(out)) out <- TRUE
+	return(out)
+
+}
+setValidity("SGP", .Valid.SGP)

R/abcSGP.R

@@ -1,7 +1,7 @@
 `abcSGP` <- 
 function(sgp_object,
 	state,
-	steps=c("prepareSGP", "analyzeSGP", "combineSGP", "summarizeSGP", "reportSGP"),
+	steps=c("prepareSGP", "analyzeSGP", "combineSGP", "summarizeSGP", "visualizeSGP"),
 	years,
 	content_areas,
 	grades,
@@ -54,11 +54,11 @@ function(sgp_object,
         ### Calculate Relevant Quantities ###
 
         if (missing(content_areas)) {
-                content_areas <- unique(abcSGP_TMP_Data[["Student"]]["VALID_CASE"]$CONTENT_AREA)
+                content_areas <- unique(abcSGP_TMP_Data@Data["VALID_CASE"]$CONTENT_AREA)
         }
         if (missing(years)) {
                 for (i in content_areas) {
-                        years <- sort(tail(unique(abcSGP_TMP_Data[["Student"]][J("VALID_CASE", content_areas)]$YEAR), -2), decreasing=TRUE)
+                        years <- sort(tail(unique(abcSGP_TMP_Data@Data[J("VALID_CASE", content_areas)]$YEAR), -2), decreasing=TRUE)
                 }
         }
 
@@ -109,9 +109,9 @@ function(sgp_object,
 	}
 
 
-	### reportSGP (To be done) ###
+	### visualizeSGP (To be done) ###
 
-#	if ("reportSGP" %in% steps) {
+#	if ("visualizeSGP" %in% steps) {
 #
 #	}