convert_dms_dd <- function(deg, min, sec){ result <- deg + min / 60 + sec / 3600 }