# 欠損値(NA)を0として平均を計算する関数

mean2 <- function(x){
	sum(x, na.rm=TRUE) / length(x)
}

# x <- c(1,2,3,NA)
mean2(x)