Language <- c("Tiranige", "Amharic", "Hungarian", "Vietnamese", "Indonesian",
"Kalaallisut (West Greenlandic)", "Magdalena Peñasco Mixtec", "Cayuga",
"Laz", "Japanese", "Buwal", "Yucatec Maya", "Manx", "Forest Enets",
"Lopit", "Mojeño Trinitario", "Ulwa (Yaul)", "Japhug",
"West Circassian", "Kuuk Thayorre")
Longitude <- c(-3.70, 39.54, 19.66, 105.77, 109.72, -52.86, -97.54, -76.60,
41.91, 135.00, 10.62, -88.96, -4.45, 86.50, 32.75, -65.41,
143.99, 102.36, 39.33, 142.03)
Latitude <- c(14.76, 11.71, 46.91, 20.68, -7.33, 69.38, 17.28, 42.41,
41.50, 35.00, 13.88, 18.78, 54.26, 68.60, 4.70, -15.33,
-4.40, 32.10, 44.00, -14.82)
Feature <- c("absent", "other", "absent", "absent", "other", "absent", "absent",
"present", "other", "absent", "present", "present", "present",
"present", "present", "absent", "other", "present", "present", "present")
typ <- data.frame(Language, Longitude, Latitude, Feature)
typ$Feature <- as.factor(typ$Feature)