Isaquedanielre

library(maptools)
library(maps)
library(mapdata)
library(rjson)
library(stringr)
library(RCurl)
library(ggplot2)


GetDirections <- function(from, to) {

Isaquedanielre

library(RCurl)
library(RJSONIO)
library(plyr)


url <- function(origin, destination) {
    root 	<- "https://maps.googleapis.com/maps/api/directions/json"
    u 		<- paste(root, "?origin=", origin, "&destination=", destination, "&key=AIzaSyAuj0ix2b8t54hrhIEHRsQNk0r6y9eBK2U", sep = "")
    return (URLencode(u))
}

Isaquedanielre

Mode <- function(x) {
     ux <- unique(x)
     ux[which.max(tabulate(match(x, ux)))]
 }