Displaying 1 result from an estimated 1 matches for "rwys".
Did you mean:
ruys
2011 Aug 27
2
Am having trouble calling a function
...ts)
df$lrw <- drop.levels(df$lrw) # In gdata package
# Drop messages from after the landing time
df = df[df$PredTime >= 0.0,]
airport = as.character(df[1,"Dest"])
#print it out
airport
date = strptime(df[1,"on"], format="%Y-%m-%d")
rwys = factor(unique(df$lrw), ordered=TRUE) # Get the names of
the runways
rwys = as.vector(rwys)
nrwys = length(rwys)
# Make a data frame with the correct index for the runway
rdf = data.frame(lrw=rwys, rwyidx=seq(1:nrwys))
df = merge(df, rdf, all.x=TRUE)
#colours <- c(RF...