随机森林
otu_forest <- randomForest(time ~ ., data = otu, importance = TRUE, ntree = 500)
报错：
Error in na.fail.default(list(time = c(8.06666666666667, 7.26666666666667, :
对象里有遺漏值
*解决方法：
otu_forest <- randomForest(time ~., data = otu, importance = TRUE, proximity = TRUE, ntree = 500, na.action = na.omit)
