Fixed exporting of some functions.

NAMESPACE

@@ -12,12 +12,17 @@ export(calc_me_growth_norms_points)
 export(calc_pct_me)
 export(calc_priority_growth_points)
 export(calc_sqrp_points)
+export(collapse_grade_to_school)
 export(cps_equate)
+export(equate_fall_to_spring)
+export(extract_academic_year)
 export(get_sqrp_level)
 export(get_test_percentile)
 export(priority_group)
 export(project_s2s)
+export(school_attainment_percentile)
 export(school_growth_percentile)
 export(simulate_once_sqrp_data)
 export(simulate_sqrp)
 export(sqrp_level)
+export(truncated_growth)

R/school_attainment_percentile.R

@@ -17,6 +17,8 @@
 #' @param school_indicator column that identifies school
 #' 
 #' @return  list with four data frames attached
+#' 
+#' @export
 school_attainment_percentile <- function(.data, 
                                          student_column="studentid",
                                          grade_column="grade", 

R/school_growth_percentile.R

@@ -214,6 +214,7 @@ school_growth_percentile <- function(.data,
 #' 
 #' @return vector of RIT scores equivilent to specified growth percentile
 #' 
+#' @export
 truncated_growth <- function(truncation_percentile=.99, 
                             typical_growth,
                             sd_growth,
@@ -235,6 +236,8 @@ truncated_growth <- function(truncation_percentile=.99,
 #' 
 #' @return data.frame 
 #' 
+#' @export
+#' 
 collapse_grade_to_school <- function(.data){
   # create skeleton that properly accounts for number of grades.  If 
   # we have a single grade at a school, then we can take the incoming data 
@@ -321,6 +324,7 @@ collapse_grade_to_school <- function(.data){
 #' @return data.frame with `nrow(growth_data)` rows and 
 #' `ncol(growth_data) + 1` columns
 #' 
+#' @export
 equate_fall_to_spring <- function(growth_data=map_matched, 
                                   fall_data=NA){
 

R/utilities.R

@@ -7,6 +7,8 @@
 #' 
 #' @return data frame with disambiguated termname and map_year_academic
 #' 
+#' @export
+
 extract_academic_year <- function(x) {
 
   prep1 <- do.call(