высчитывает по категориям

Question

Я хочу, чтобы вычислить частоту ошибок интервала, когда 0 IST хорошо и 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)) 
} 

Я уже пробовал этот код выше и нажимал. Спасибо!

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