inst/pems/intermediate_transformed_code.R

pipe("cut -d , -f  stationID/313368.csv")
pipe("cut -d , -f  stationID/313369.csv")
pems = pems[, c("station", "flow2", "occupancy2")]
pems2 = split(pems, pems$station)
results = lapply(pems2, npbin)
results = do.call(rbind, results)
write.csv(results, "results.csv")
clarkfitzg/codedoctor documentation built on Nov. 10, 2019, 7:11 a.m.