Commute data

Sign in to test your solution.
commute_data <- data.frame( time = c(61.5576,40.8444,56.3476,35.0606,67.1428,30.1641,56.3423,55.0081,64.4005,32.3133, 23.7256,20.888,56.7649,42.7737,61.5513,34.5959,63.6199,62.8738,60.0493,25.0508, 16.846,56.4528,60.1071,18.3238,63.9139,27.0571,62.1788,19.3136,66.3675,55.0283, 66.4199,53.7401,50.343,16.2138,55.8664,54.9252,12.3334,68.2391,66.8001,54.211, 79.6885,19.6554,60.0408,68.8854,59.0295,43.2956,41.2242,15.9267,61.6259,50.7027), mode = c('bike','train','bike','train','bike','bus','bike','bike','bike','car', 'train','train','bike','bus','bike','train','bike','bike','bike','bus','bus', 'bike','bike','train','bike','train','bike','train','bike','bike','bike', 'bike','bike','bus','bike','bike','train','bike','bike','bike','bus','car', 'bike','bike','bike','train','train','car','bike','train') )
You can submit as many times as you like. Only your latest submission will be taken into account.
Sign in to test your solution.