Напишите функцию, которая использует формулу сокращения, чтобы вычислить суммы квадратов вектора, используя R

Question

Я знаю только, как написать функцию, которая возводит в квадрат число.

sums.squares<-function(dat){
squares <- dat^2
sums<-squares
return(sums)}

Answer 1

Вот (есть) альтернативная (ые) функция (и), хотя это не совсем быстрый путь:

expo<-function(n){
  force(n)
  function(x){
   res<-x^n
   sum(res)
  }
}
square<-expo(2)

Проверка square функции

mydata1<-c(1,2,3)
square(mydata1)
#[1] 14

Answer 2

Вам просто нужно суммировать свой результат раньше.

sums.squares<-function(dat){
squares <- dat^2
sums<-sum(squares)
return(sums)}