生成具有成功与失败比例的表

时间:2015-03-09 21:31:13

标签: r r-factor

我想按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)

如何获得一个表格或函数来计算每个区间的默认率,不良观察的数量除以观察总数?

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

我已经尝试过上面的代码并进行了tapply。 谢谢!

1 个答案:

答案 0 :(得分:0)

我想你想要这个:

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))