deprecated/match.tz.dates.r

In galuardi/analyzepsat: Microwave Telemtry PSAT analysis

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
}