t1 <- list(list(0, 200, "small"), list(200, 400, "medium"), list(400, 600, "large"))
lawn_reclass(lawn_data$points_average, 'population', 'size', t1)
lawn_reclass(lawn_data$points_average, 'population', 'number', t1)
t2 <- list(list(0, 150, "small"), list(150, 700, "big"))
lawn_reclass(lawn_data$points_average, 'population', 'size', t2)
Run the code above in your browser using DataLab