Displaying 1 result from an estimated 1 matches for "rwyidx".
Did you mean:
ridx
2011 Aug 27
2
Am having trouble calling a function
...t
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 = "blue", FF = 56, PS = "magenta", TC=94)
colours <- c("0"="red","1...