Dispositivos Niñez

DATOS_DN$lat <- as.numeric(DATOS_DN$lat)

## Warning: NAs introducidos por coerción

DATOS_DN$long <- as.numeric(DATOS_DN$long)
DATOS_DN$lat <- as.numeric(gsub(",", ".", DATOS_DN$lat))
DATOS_DN$long <- as.numeric(gsub(",", ".", DATOS_DN$long))

## Warning in validateCoords(lng, lat, funcName): Data contains 3 rows with either
## missing or invalid lat/lon values and will be ignored