cut（）関数で何らかの誤解がありました

Question

変数を離散変数から連続変数に変更しています。どのように私は今私の間隔ごとに中央値を得ることができます。私の魔法のr値が

r = log(length(sample), base = 2) 
    r = trunc(r) 
    r = r + 1 

今、私はこののそれぞれから中央値を取得する必要がありますされ

sample <- c(30,16,12,40,14,30,5,5,5,5,38,30,45,22,30,31,22,35,45,29) 
sample$Cut <- cut(sample,seq(min(sample),max(sample),(max(sample)-min(sample))/r),include.lowest = TRUE) 

インターバル：

[5,13]（13,21]（21、 29]（29,37]（37,45] この例では私は9,17,25,33,41を取得する必要があります。

ので、愚かな質問には申し訳ありません

。事前にありがとうございます。

Answer 1

あなたはブレークポイントを持っている：

b <- seq(min(sample), max(sample), (max(sample)-min(sample))/r) 
# [1] 5 13 21 29 37 45 

は、したがって、それらの間隔のためのミッドポイントは以下のとおりです。

(b[-length(b)] + b[-1])/2 
# [1] 9 17 25 33 41