Displaying 1 result from an estimated 1 matches for "checkdateline".
2013 Feb 09
1
R maps Help
...ow to make the output map
larger. Do I need to change the device characteristics or is it a map.???
call. Here is the code:
library(maps)
library(geosphere)
airports <- read.csv("airports.csv", header=TRUE)
flights <- read.csv("FSRflights.csv", 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=add...