[解決済み] rで和を計算する方法

質問

私のRコード

((x[1]-xm)^2)+((x[2]-xm)^2)+((x[3]-xm)^2)+((x[4]-xm)^2)+((x[5]-xm)^2)+((x[6]-xm)^2)

この問題を和算として定式化すれば、この計算はもっと簡単になるはずです。rでそれを行うにはどうすればよいのでしょうか？こんな感じです。

sum((x[i]-xm)^2) for i=1 to i=6?

x はデータフレームです。

どのように解決するのですか？

を使用する必要があります。 sum() 以下の例をご覧ください。

IndexStart <- 1
x <- seq(IndexStart, 6, 1)
xm <- 1

result1 <- ((x[1]-xm)^2)+((x[2]-xm)^2)+((x[3]-xm)^2)+((x[4]-xm)^2)+((x[5]-xm)^2)+((x[6]-xm)^2)
print(result1)
# [1] 55

result2 <- sum((x-xm)^2) # <- Solution
print(result2)
# [1] 55