deprecated/make.btrack.alldates.r

In galuardi/analyzepsat: Microwave Telemtry PSAT analysis

make.btrack.alldates <- function(track, psat){
	require(date)
	alldates  = seq(psat$day0, psat$dayT)
	alldates.dmy  = date.mdy(alldates)
	alldates.dmy = cbind(alldates.dmy[[2]],alldates.dmy[[1]],alldates.dmy[[3]])

	bdates = mdy.date(track[,2],track[,1],track[,3])

	bidx = match(bdates, alldates)

	output = as.data.frame(matrix(NA,nrow = length(alldates), ncol = ncol(track)))
	names(output) = names(track)
	
	output[,1:3] = alldates.dmy
	output[bidx,4:ncol(track)] = track[,4:ncol(track)]
	output
}

match.tz.dates <- function(pdata, type = c('depth', 'temp')){
	#alldates  = seq(pdata$day0, pdata$dayT)
	alldates = pdata$day0:(pdata$day0+dim(pdata$Z)[1]-1)
	alldates.dmy  = date.mdy(alldates)
	alldates.dmy = cbind(alldates.dmy[[2]],alldates.dmy[[1]],alldates.dmy[[3]])
	#tzidx = match(tzdates, alldates)
	output = matrix(NA,nrow = length(alldates), ncol = ncol(pdata$Z))
	if(type=='depth') output = cbind(alldates.dmy, pdata$Z)
	if(type=='temp') output = cbind(alldates.dmy, pdata$T)
	output
}