# NOT RUN {
{
lkm <- units::set_units(1:10, km)
ta <- celsius(matrix(0:9, ncol = 12, nrow = 10))
a <- cold_mileage(lkm, rbind(ta, ta))
(a)
filled.contour(as.matrix(a), col = cptcity::lucky(n = 16))
}
# }
Run the code above in your browser using DataLab