R/getTimeShiftIndex.R

In SGP: Student Growth Percentiles & Percentile Growth Trajectories

getTimeShiftIndex <-
function(my.time.data,
         my.matrix,
         time.shift=365,
         time.buffer=30) {
		(-20:20)[which.max(sapply(-20:20, function(x) my.matrix@Version[['Matrix_Information']][['SGPt']][['MAX_TIME']]+time.buffer+time.shift*x - my.time.data) > 0)]
} ### END getTimeShiftIndex