Rの偏差スコアの合計をゼロにするにはどうすればよいですか？

私はデータのベクトルを持っており、分散と標準偏差を '手動で'計算したいと考えています。Rの偏差スコアの合計をゼロにするにはどうすればよいですか？

pointsPerGame<-c(28,26,10,27,20,38,23,28,25,2)

私はこの

pointsPerGame - mean(pointsPerGame)

のような偏差のスコアを取得することができますしかし、私はそれが必要のように、それがゼロに合計しません偏差スコアの合計を取得しようとします。

deviationScores<- pointsPerGame - mean(pointsPerGame) 
sum(deviationScores)

私は、これはRの精度のレベルに関係しているけど、私は私の目的のためにそうすることを防止する方法がわかりません。

希望すると助かります。

この質問は私の質問Why are these numbers not equal? に答えとしてフラグ付けされてきた。しかし、私は、あなたが考え出し

あなたの質問にはすでに回答があります。 –

@PierreLafortuneしかし、私は7.105427e-15の値を得ます –

[なぜこれらの数値が等しくないのですか？]（http://stackoverflow.com/questions/9508518/why-are-these-numbers-not-equal ） – lmo

などのフローティングポイントの詳細に入るために非常に混乱するだろRは、教育目的のために0を表示させたいですすでに答えを出してください。アナリストとパートタイムのコンピュータ科学者であることを今すぐ受け入れなければなりません。浮動小数点演算は、Excelの魅力を好む場合を除いて、あなたと一緒です。

all.equal(0L, sum(deviationScores)) 
[1] TRUE

編集の教育目的のために

、合計のための0を表示します。

devsum <- sum(deviationScores) 
devsum <- if(all.equal(0L, devsum)) 0L else devsum

2016-11-09 17:37:07

回答に感謝しますが、教えるために0を表示したい場合は、どうすればいいですか？ –

ティーチングスクリプトが追加されました。 –

答えて