以编程方式查找具有最多喷发的子间隔

Question

faithful是r中的内置数据集。

我必须计算爆发次数最多的子间隔。

我通过以下方式尝试过：

 vct <- faithful$eruptions
 range(vct)
 vct.cut <- cut(vct,seq(1.5,5.5,by=0.5),right=FALSE)
 freq <- table(vct.cut)

  y <- sort(freq,decreasing=TRUE)

 #the  sub-interval that has the most eruptions.
  y[1]

程序是否正确？我正在寻找一种更好的方法来以编程方式查找火花爆发次数最多的子区间。

Answer 1

您正在寻找which.max。

names(freq)[which.max(freq)]