R에서 표준편차/평균 구하기

표준편차와 평균을 구하는 함수이다. mean,sd(표준편차를 영어의 앞자만 묶음)로 쉽게 구할 수 있다.

mean(c(1, 2, 3, 4))

sd(c(1, 2, 3, 4))

simpleStats <- function(x) {

  n <- length(x)

  sampleMean <- sum(x) / n

  sampleSD <- sqrt(sum((x-sampleMean)^2) / (n-1))

  return (list("sampleMean"=sampleMean, "sampleSD" = sampleSD))

}

simpleStats(c(1,2,3,4))

결과

> mean(c(1, 2, 3, 4))

[1] 2.5

> sd(c(1, 2, 3, 4))

[1] 1.290994

> simpleStats <- function(x) {

+ n <- length(x)

+ sampleMean <- sum(x) / n

+ sampleSD <- sqrt(sum((x-sampleMean)^2) / (n-1))

+ return (list("sampleMean"=sampleMean, "sampleSD" = sampleSD))

+ }

> simpleStats(c(1,2,3,4))

$sampleMean

[1] 2.5

$sampleSD

[1] 1.290994

참고로 분산은 var() 함수로 구할 수 있다. 

> var(c(1,2,3,4))

[1] 1.666667