r - RのIRangesパッケージのコードを理解する このコードはどういう意味ですか?

Question

私はここで初めてです。いくつかの質問を閲覧していたところ、理解できないこのコードが見つかりました....彼らはRでIRangesパッケージをダウンロードしましたが、コードは間隔と関係があります.

Answer 1

詳細についてtapplyは、?tapply を参照してください。

cutパッケージIRangesではなく、使用するコードのバージョンは次のとおりです。

  idx <- seq(1, ncol(df), by=2)
     o1 <- lapply(idx, function(i) {  
     ## create grouping factor
     fac <- cut(df[,i],seq(0,max(df[i]),30),labels=F)
     fac[is.na(fac)] <- max(fac,na.rm=T)+1
     # compute the mean by interval
     mean=tapply(df[,i+1],fac, mean)
     # put the result in a data.frame
     fac=levels(as.factor(fac))
     d <- data.frame(mean=mean,fac=fac)
})

これをこの構造に適用すると:

[1]]
      mean fac
1 1.300000   1
2 1.450000   2
3 2.925000   3
4 1.700000   4
5 2.333333   5

[[2]]
      mean fac
1 2.500000   1
2 2.350000   2
3 1.516667   3

[[3]]
  mean fac
1 1.78   1
2 1.90   2