R/uniquesplineMatrix.R

In CenterForAssessment/SGP: Student Growth Percentiles & Percentile Growth Trajectories

`uniquesplineMatrix` <- 
function(list.of.splineMatrices) {
	
	###  First identify/remove exact duplicates (not newer/older Versions).  Fixes issue of mergeSGP with existing SIMEX Baseline Matrices - 10/8/14
	tmp.list.1 <- lapply(list.of.splineMatrices, 
		function(x) list(Data = x@.Data, Content_Areas=x@Content_Areas, Grade_Progression=x@Grade_Progression, Time=x@Time, Time_Lags=x@Time_Lags, Version=x@Version))
	if (any(duplicated(tmp.list.1))) {
		list.of.splineMatrices <- list.of.splineMatrices[!duplicated(tmp.list.1)]
	}
	
	tmp.list.1 <- lapply(list.of.splineMatrices, 
		function(x) list(Data = x@.Data, Content_Areas=x@Content_Areas, Grade_Progression=x@Grade_Progression, Time=x@Time, Time_Lags=x@Time_Lags))
	tmp.list.2 <- lapply(list.of.splineMatrices, 
		function(x) list(Data = x@.Data, Content_Areas=x@Content_Areas, Grade_Progression=x@Grade_Progression, Time=x@Time, Time_Lags=x@Time_Lags, Version=x@Version))
	if (any(duplicated(tmp.list.1))) {
		list.of.splineMatrices[!duplicated(tmp.list.1[order(as.character(unlist(sapply(tmp.list.2, function(x) x$Version[1]))), decreasing=TRUE)])]
	} else {
		list.of.splineMatrices
	}
} ### END uniquesplineMatrix