R/getTargetSGPLevel.R

In SGP: Student Growth Percentiles & Percentile Growth Trajectories

`getTargetSGPLevel` <-
function(state,
	state.iter=NULL,
	target.level){

	if (!is.null(SGP::SGPstateData[[state]][['Achievement']][['Cutscore_Information']])) {
		tmp.state.level <- which(sapply(lapply(SGP::SGPstateData[[state]][["Achievement"]][["Cutscore_Information"]][['State_Levels']], '[[', 1), function(x) state.iter %in% x))
		if (target.level=="CATCH_UP_KEEP_UP") {
			level.to.get <- which.max(SGP::SGPstateData[[state]][["Achievement"]][["Cutscore_Information"]][['State_Levels']][[tmp.state.level]][['Levels']]=="Proficient")-1
		}
		if (target.level=="MOVE_UP_STAY_UP") {
			if (length(which(SGP::SGPstateData[[state]][["Achievement"]][["Cutscore_Information"]][['State_Levels']][[tmp.state.level]][['Levels']]=="Proficient")) <= 1) {
				message(paste0("\tNOTE: MOVE_UP_STAY_UP Targets cannot be calculated because no achievement levels above PROFICIENT exist in ", state, "/", state.iter, "."))
				level.to.get <- NULL
			} else {
				level.to.get <- which.max(SGP::SGPstateData[[state]][["Achievement"]][["Cutscore_Information"]][['State_Levels']][[tmp.state.level]][['Levels']]=="Proficient")
			}
		}
	} else {
		if (target.level=="CATCH_UP_KEEP_UP") level.to.get <- which.max(SGP::SGPstateData[[state]][["Achievement"]][["Levels"]][["Proficient"]]=="Proficient")-1
		if (target.level=="MOVE_UP_STAY_UP") {
			if (length(which(SGP::SGPstateData[[state]][["Achievement"]][["Levels"]][["Proficient"]]=="Proficient")) <= 1) {
				stop(paste0("\tNOTE: MOVE_UP_STAY_UP Targets cannot be calculated because no achievement levels above PROFICIENT exist in ", state, "."))
			} else {
				level.to.get <- which.max(SGP::SGPstateData[[state]][["Achievement"]][["Levels"]][["Proficient"]]=="Proficient")
			}
		}
	}
	return(level.to.get)
} ### END getTargetSGPLevel