Displaying 1 result from an estimated 1 matches for "nrwys".
Did you mean:
rwys
2011 Aug 27
2
Am having trouble calling a function
...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 = "brown", AF =383, PH="red",PF = "black",
#BA = "green", FI = &q...