欠損値NAの扱い

zにNAが複数含まれているので，普通にmean(z)としても平均が算出できない．
そこで，na.omit(z)を使って単純にNAを取り除く．
ただし，summaryだと，meanを計算してくれる模様．

z1 <- na.omit(z)
summary(z1)
      Min.    1st Qu.     Median       Mean    3rd Qu.       Max. 
-1.630e+02 -6.362e+00 -1.516e+00  3.071e-03  3.111e+00  4.464e+02 
summary(z)
      Min.    1st Qu.     Median       Mean    3rd Qu.       Max.       NA's 
-1.630e+02 -6.362e+00 -1.516e+00  3.071e-03  3.111e+00  4.464e+02  7.000e+00 
mean(z)
[1] NA
mean(z1)
[1] 0.003071416