R/unittests/genTestTimeSeq.R

In MRCIEU/GLU: Derives Summary Variables from Continuous Glucose Monitoring (CGM) data

genTestTimeSeq <- function(iEnd) {

	time = c('01/01/18 22:00:00')
	time = strptime(time, format='%d/%m/%y %H:%M:%S')


	# now we have resampled to 1 minute epochs
	iEnd = 5*iEnd


	i=2
	while (i<=iEnd) {

	        lastTime = time[i-1]
	
	        # plus 5 mins
	        thisTime = lastTime + 60
	
	        time = c(time, thisTime)
	        i=i+1
	}

	return(time)
}