# Create dataframe with some important toponyms in and around Botlikh
shaitane <- data.frame("lat" = c("42.6605719", "42.6690729", "42.663768", "42.655494"),
"lon" = c("46.2146662", "46.201258", "46.223061", "46.1977715"),
"lang" = c("Botlikh"),
"place" = c("Shait'ane", "Mikrorayon", "Old village", "Shogaɬi hani"))
# Convert character vectors with coordinates to numeric
shaitane$lat <- as.numeric(as.character(shaitane$lat))
shaitane$lon <- as.numeric(as.character(shaitane$lon))
# Create dataframe with some important toponyms in and around Botlikh
shaitane <- data.frame(lat = c(42.6605719, 42.6690729, 42.663768, 42.655494),
lon = c(46.2146662, 46.201258, 46.223061, 46.1977715),
lang = c("Botlikh"),
place = c("Shait'ane", "Mikrorayon", "Old village", "Shogaɬi hani"))