生成 table 成功与失败的比例

Question

我想按 0 好的区间和 1 的坏区间计算错误率。如果我有一个 100 个观察样本，其水平按如下间隔划分：

X <- 10; q<-sample(c(0,1), replace=TRUE, size=X)
l <- sample(c(1:100),replace=T,size=10)

bornes<-seq(min(l),max(l),5)
v <- cut(l,breaks=bornes,include.lowest=T)
table(v)

我怎样才能得到一个 table 或函数来计算每个间隔的违约率，不良观察的数量除以观察总数？

tx_erreur<-function(x){
    t<-table(x,q)
    return(sum(t[,2])/sum(t))
}

我已经在上面尝试过这段代码并点击了。谢谢！

Answer 1

我想你想要这个：

tapply(q,# the variable to be summarized
       v,# the variable that defines the bins
       function(x) # the function to calculate the summary statistics within each bin
           sum(x)/length(x))

生成 table 成功与失败的比例

Generate table with proportions of success vs failure

r

r-factor