search for: gcintermedi

...t;, header=TRUE, as.is=TRUE) checkDateLine <- function(l){ n<-0 k<-length(l) k<-k-1 for (j in 1:k){ n[j] <- l[j+1] - l[j] } n <- abs(n) m<-max(n, rm.na=TRUE) ifelse(m > 30, TRUE, FALSE) } clean.Inter <- function(p1, p2, n, addStartEnd){ inter <- gcIntermediate(p1, p2, n=n, addStartEnd=addStartEnd) if (checkDateLine(inter[,1])){ m1 <- midPoint(p1, p2) m1[,1] <- (m1[,1]+180)%%360 - 180 a1 <- antipode(m1) l1 <- gcIntermediate(p1, a1, n=n, addStartEnd=addStartEnd) l2 <- gcIntermediate(a1, p2, n=n, addStartEnd=addStartE...

..., ylim=ylim) fsub <- flights[flights$airline == "AA",] fsub <- fsub[order(fsub$cnt),] maxcnt <- max(fsub$cnt) for (j in 1:length(fsub$airline)) { air1 <- airports[airports$iata == fsub[j,]$airport1,] air2 <- airports[airports$iata == fsub[j,]$airport2,] inter <- gcIntermediate(c(air1[1,]$long, air1[1,]$lat), c(air2[1,]$long, air2[1,]$lat), n=100, addStartEnd=TRUE) colindex <- round( (fsub[j,]$cnt / maxcnt) * length(colors) ) lines(inter, col=colors[colindex], lwd=0.8) } -- View this message in context: http://r.789695.n4.nabble.com/Error-Error-in-if-antipod...