r - R: ベクトルの平均以下の値を合計する while ループを作成する

Question

ここで実際にいくつかの助けを借りることができます。ベクトル内の平均以下のすべての値の合計を計算する while ループが必要です。また、合計内の値の量を抽出したいのですが、ベクトルは次のようになります。

x <- ログ (1:200)

助けてくれてありがとう！

Answer 1

値が平均を下回っているかどうかを示す論理ベクトルを作成します。

vec <- x < mean(x)

平均以下のすべての値を合計します。

sum(x[vec])

平均以下のカウント値:

sum(vec)