search for: gpsarc

...datetimegps) urdata$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...

...on my forum etiquette. This is a complex problem for me, which may require two forum entries, but I will try my best to be concise. Also, I am a self taught coder, so if my code is not to convention, your constructive criticism is always welcome. I need to split up a data frame by participant (gpsarc - factor), status (testpo - factor), and by date (LocalDate), then sum the distance (Dist_Bef_m - numeric) records for each date and average them across each status state for each participant. Each participant has several records for each date and for at least 1 of 3 different possible status type...