data(health3)
health3_sample <- health3[sample(nrow(health3), 100), ]
# Random sample of 100 rows
plot(health3_sample$distance, health3_sample$drvtime)
# Plot of euclidean distance vs. travelling time
Run the code above in your browser using DataLab