for(i in start:dim)
	{
		#Only predict if not night
		if(!data[i+60,"Night"]){

		# i = t-1
		# T = t+59
		# T-60 = t-1 = i
		# T-120 = i-60
		# ...

		data2[id,1] = data[i,"KB"]
		data2[id,2] = data[i-1,"KB"]
		data2[id,3] = data[i-(1*60),"KB"]
		data2[id,4] = data[i-(2*60),"KB"]
		data2[id,5] = data[i-(23*60),"KB"]

		#id 6 -> 25
		for(k in 1:20){
			data2[id,5+k] = data[i-k+1,"Patm_Avg"]
		}
		#id 25 -> 30
		for(k in 1:5){
			data2[id,25+k] = data[i-(k*60),"Patm_Avg"]
		}
		data2[id,31] = data[i-(11*60),"Patm_Avg"]
		data2[id,32] = data[i-(23*60),"Patm_Avg"]

		#id 33 -> 37
		for(k in 1:5){
			data2[id,32+k] = data[i-k+1,"RH_Avg"]
		}
		data2[id,38] = data[i-(23*60),"RH_Avg"]

		#id 39 -> 41
		for(k in 1:3){
			data2[id,38+k] = data[i-k+1,"Text_Avg"]
		}
		data2[id,42] = data[i-(11*60),"Text_Avg"]
		data2[id,43] = data[i-(23*60),"Text_Avg"]

		data2[id,44] = data[i,"WS_Mean"]
		data2[id,45] = data[i-1,"WS_Mean"]
		data2[id,46] = data[i-2,"WS_Mean"]
		data2[id,47] = data[i-(1*60),"WS_Mean"]
		data2[id,48] = data[i-(2*60),"WS_Mean"]
		data2[id,49] = data[i-(11*60),"WS_Mean"]
		data2[id,50] = data[i-(23*60),"WS_Mean"]

		data2[id,51] = data[i,"UnitX"]
		data2[id,52] = data[i-1,"UnitX"]
		data2[id,53] = data[i-2,"UnitX"]
		data2[id,54] = data[i-3,"UnitX"]
		data2[id,55] = data[i-4,"UnitX"]
		data2[id,56] = data[i-(1*60),"UnitX"]
		data2[id,57] = data[i-(2*60),"UnitX"]
		data2[id,58] = data[i-(3*60),"UnitX"]
		data2[id,59] = data[i-(11*60),"UnitX"]
		data2[id,60] = data[i-(23*60),"UnitX"]

		data2[id,61] = data[i,"UnitY"]
		data2[id,62] = data[i-1,"UnitY"]
		data2[id,63] = data[i-2,"UnitY"]
		data2[id,64] = data[i-3,"UnitY"]
		data2[id,65] = data[i-4,"UnitY"]
		data2[id,66] = data[i-5,"UnitY"]
		data2[id,67] = data[i-(1*60),"UnitY"]
		data2[id,68] = data[i-(2*60),"UnitY"]
		data2[id,69] = data[i-(11*60),"UnitY"]
		data2[id,70] = data[i-(23*60),"UnitY"]

		labels2[id]  = data[i+60,"KB"]

		id=id+1

		}
	}
	data2   <- data2[1:id,]