# 欠損値(NA, NaN)を0に変換する関数

na0 <- function(x){
	x <- as.matrix(x)
	x <- ifelse((is.na(x) | is.nan(x)), 0, x)
	as.data.frame(x)
}

na0 <- function(x){
	x[is.na(x)] <- 0; x[is.nan(x)] <- 0
	x
}

# 使用方法
x <- matrix(c(1,2,3,NA,5,NaN,7,8), ncol=2)
na0(x)