&引用;错误:';train.default';不是从';名称空间:插入符号'&引用;尝试运行插入符号::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"

每次我尝试使用插入符号::train()训练模型时

库(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")
     )