In wjones127/thesis: Bike Routes Thesis (Title Case)

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)