R_基本統計量を自作（平均値）

平均値

#平均値
result_mean <- function(x)
{
  sum<-0
  n<-length(x)
  for(i in 1:n)
  {
    sum <- sum+x[i]
  }
  mean<-sum/n
  return(mean)
}

#Rのもともとある関数mean()で動作確認

x<-c(10,20,30,40)
result_mean(x)
[1] 25
mean(x)
[1] 25