cv.models fails when the model has function call in data

[Marchen]

cv.models fails when data having function call such as:

cv <- cv.models(ranger(
	Species,
	data = droplevels(subset(iris, Species != "setosa")), importance = "permutation"
), n.cores=1)