myscratchpad

# データフレームの変数ごとに欠損値があるかどうか
sapply(dat, function(x) sum(is.na(x)))

# 特定の値を欠損値とする
dat[dat=="setosa"] <- NA
dat[dat==9999] <- NA # 数値もできる

# 変数を指定して欠損値とする。データ内に既に欠損値があるとエラーになる
dat[dat$Species=="virginica", "Species"] <- NA

# 欠損値の除去
# 関数内では大体na.rm=Tとする
mean(x, na.rm=T)

# データフレームから行 (ケース) ごと除去
na.omit(dat)


Amelia II, Mice, mitools といったパッケージがあるらしい

# おまけ
dat2 <- dat
for(i in 1:ncol(dat)){
dat2[,i] <- replace(dat[,i], which(dat[,i]==0), NA)
}