Displaying 1 result from an estimated 1 matches for "urarc".
2010 Nov 08
2
Fuzzy merge using timestamps
...data$t_datetimeur<-as.POSIXct(urdata$t_datetimeur)
gpsdata$ID1 <- row.names(gpsdata)
urdata$ID2 <- row.names(urdata)
gpsdata$key1 <- rep(0, nrow(gpsdata))
urdata$key2 <- rep(1, nrow(urdata))
checkTimes <- data.frame(ID=c(gpsdata$ID1, urdata$ID2),
ARC=c(gpsdata$gpsARC, urdata$urARC),
times=c(gpsdata$t_datetimegps, urdata$t_datetimeur),
key=c(gpsdata$key1, urdata$key2))
checkTime <- checkTimes[order(checkTimes$ARC,checkTimes$times, decreasing =
FALSE),]
breaks <- which(diff(checkTime$key) == 1)
match <- data.frame(ID1=checkTime$ID[breaks],
gpsARC = checkTime$AR...