suppressPackageStartupMessages(library(rgdal)) suppressPackageStartupMessages(library(rgeos)) suppressPackageStartupMessages(library(ggplot2)) suppressPackageStartupMessages(library(dplyr)) suppressPackageStartupMessages(library(Hmisc)) suppressPackageStartupMessages(library(FNN))
load("../data/rides.RData") load("../data/route_segments.RData") load("../data/segments.RData")
segment.lat.long <- cbind(route.segments$lat.start, route.segments$long.start) example <- cbind(45.55, -122.99) result<- knnx.index(segment.lat.long, example, k=1)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.