r - 如何在插入符号包中的指定网格中随机搜索?
问题描述
我想知道是否可以在预定义的网格中使用随机搜索。例如,我的网格有alpha
and lambda
forglmnet
方法。alpha
介于 0 到 1之间,lambda
介于 -10 到 10 之间。我想使用随机搜索 5 次来随机尝试此范围内的点。我为网格搜索编写了以下代码,它工作正常,但我无法修改它以进行随机搜索。
rand_ctrl <- trainControl(method = "repeatedcv", repeats = 5,
search = "random")
grid <- expand.grid(alpha=seq(0,1,0.1),lambda=seq(-10,10,1)) # I think this should be modified
rand_search <- train(Response ~ ., data = train_dat,
method = "glmnet",
## Create 20 random parameter values
metric = "RMSE",
tuneLength = 5,
preProc = c("scale"),
tuneGrid = grid,
trControl = rand_ctrl)
解决方案
一种方法是定义一个网格并用于sample
选择几个随机行:
set.seed(1)
samp <- sample(1:nrow(grid), 5)
grid[samp,]
#output
alpha lambda
62 0.6 -5
86 0.8 -3
132 1.0 1
208 0.9 8
46 0.1 -6
然后使用这个子集作为tuneGrid
参数
另一种方法是使用runif
它从由下限和上限定义的均匀分布生成随机数:
set.seed(1)
data.frame(alpha = runif(5, 0 , 1),
lambda = runif(5, -10, 10))
#output
alpha lambda
1 0.2655087 7.967794
2 0.3721239 8.893505
3 0.5728534 3.215956
4 0.9082078 2.582281
5 0.2016819 -8.764275
并将其作为tuneGrid
论据。
第二种方法不是从网格中选择随机元素,而是在定义的最小值和最大值之间选择随机数。
推荐阅读
- android - 我使用 fcm 向设备发送通知,但收不到通知
- amazon-web-services - 使用系统管理器运行命令在 AWS 上的 maven artifactory 下载并安装 exe 文件
- exception - 我在使用 PHP 7.2 的条件下在 Cakephp 2.5 中抛出异常,它什么也没抛出,为什么?
- sql - 为什么我在这里得到 System.Data.DataRow?
- python - Python 找不到已安装的模块
- php - 为什么要更改我的网站的加载时间?
- websocket - 具有最大连接数的 ActiveMQ Websocket 传输
- c# - 如何动态绑定具有“React”状态的数据模型?
- mysql - 通过mysql或rails在数据库之间传输记录更好吗?
- javascript - 无法使用 Jquery 或 Javascript 更新输入框的值