hamil_df <- data.frame(id = seq(1:8),
ham = c(-160.5375, -167.8426, -121.7128, -155.7245,
-113.9834, -112.5262, -117.9724, -171.374))
ham_distance(hamil_df)
Run the code above in your browser using DataLab