我正在编写一个函数,该函数使用 kmeans 来确定 bin 宽度,以将连续测量值(预测概率)转换为整数(3 个 bin 之一)。我偶然发现了一个边缘情况,在这种情况下,我的算法可以(正确)预测整个集合的相同概率,我想处理这种情况。我正在使用 rattle
包裹的binning()
功能如下:
btsKmeansBin <- function(x, k = 3, default = c(0, 0.3, 0.5, 1)) {
result <- binning(x, bins = k, method = "kmeans", ordered = T)
bins <- attr(result, "breaks")
attr(bins, "names") <- NULL
bins <- bins[order(bins)]
bins[1] <- 0
bins[length(bins)] <- 1
return(bins)
}
在
x <- c(.5,.5,.5,.5,.5,.5)
上运行此函数,您将在 order(bins)
处收到错误消息步骤,因为 bins
将为 NULL,因此不是向量。显然,如果
x
只有一个不同的值,kmeans 不应该工作。在这种情况下,我想返回 default
箱分区。发生这种情况时,binning
问题“警告:不考虑变量。”所以我想用 tryCatch
处理此警告,但围绕 result <- ...
带有以下代码的行不能按我期望的方式工作:...
tryCatch({
result <- binning(x, bins = k, method = "kmeans", ordered = T)
}, warning = function(w) {
warn(sprintf("%s. Using default values", w))
return(default)
}, error = function(e) {
stop(e)
})
...
警告被打印,好像我没有使用过
tryCatch
,并且代码进展到了 return
语句并从 order
抛出错误再次。我尝试了很多变体都无济于事。我错过了什么,在这里?
最佳答案
如果您查看 binning
我想你会发现你看到的“警告”不是通过 warning()
生成的但与 cat()
,这就是为什么 tryCatch
不是捡起来的binning
作者对于这种疏忽,可能应该用湿面条进行几次捆绑。 ;) (或者它可能是故意的,因为拨浪鼓的工作方式特殊,我不确定。)
似乎返回 NULL
发生这种情况时,您只需手动处理即可。不理想,但可能是唯一的出路。
关于r - tryCatch() 显然忽略了警告,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/13422300/