&引用;错误:';train.default';不是从';名称空间:插入符号'&引用;尝试运行插入符号::train()时
每次我尝试使用插入符号::train()训练模型时&引用;错误:';train.default';不是从';名称空间:插入符号'&引用;尝试运行插入符号::train()时,r,namespaces,r-caret,R,Namespaces,R Caret,每次我尝试使用插入符号::train()训练模型时 库(tidyverse) 图书馆(插入符号) #reprex df x VAL: mydata重新安装插入符号包并重新运行代码。在我的系统中,你的代码运行得很好。对我来说也是如此 library(tidyverse) library(caret) #reprex df x vals: mydata <- data.frame(product = sample(c("apples", "pears"
库(tidyverse)
图书馆(插入符号)
#reprex df x VAL:
mydata重新安装插入符号包并重新运行代码。在我的系统中,你的代码运行得很好。对我来说也是如此
library(tidyverse)
library(caret)
#reprex df x vals:
mydata <- data.frame(product = sample(c("apples", "pears", "carrots", "potatoes"), replace=TRUE),
temperature_C = rnorm(1000, mean=15, sd=10),
weekday = sample(c("monday", "tuesday", "wednesday", "thursday", "friday"), replace=TRUE),
weight = rnorm(1000, mean=300, sd=50))
#reprex df y vals:
mydata$value = mydata$weight + 10*mydata$temperature_C + rnorm(1000,70,25) +
case_when(mydata$weekday %in% c("monday", "tuesday", "wednesday") ~ 200,
mydata$weekday %in% c("thursday", "friday") ~ -150,
TRUE ~ NA_real_)
#create folds
myFolds <- createFolds(mydata$value, k = 10)
# Create traincontrol object
myControl_continuous = trainControl(verboseIter = TRUE, index = myFolds )
# Fit a glmnet:
model_glmnet <- caret::train(
value ~ .,
mydata,
metric = "RMSE",
method = "glmnet",
tuneLength = 100,
trControl = myControl_continuous,
preProcess = c("zv", "knnImpute", "center", "scale")
)