Displaying 1 result from an estimated 1 matches for "endlat".
Did you mean:
endlab
2011 Jan 20
1
Generating time progressing line for Google Earth
...radians to degrees
new_lat = Degrees(new_lat_rad);
new_lon = Degrees(new_lon_rad);
coords[i, 2] = new_lat
coords[i, 1] = new_lon
}
return(coords)
}
###################
#---BREWING KML---#
###################
#A 39.5 -4.5
#E 44.75 -107.5
startLong = -4.5
startLat = 39.5
endLong = -107.5
endLat = 44.75
numberOfIntervals = 100
coords <- GenerateLineSegments(startLong, startLat, endLong, endLat,
numberOfIntervals) coords <- as.data.frame(coords)
names(coords) <- c("Long", "Lat")
seg <- data.frame(matrix(NA, nrow(coords) - 1, 5))
names(seg) <- c("x&...