# 2次元の行列でNAや0だけの行と列を除去する関数

na.rm <- function(tb){
	j.row <- apply(tb, 1, sum, na.rm=TRUE)
	j.row <- j.row[j.row != 0]
	j.row <- names(j.row)
	j.col <- apply(tb, 2, sum, na.rm=TRUE)
	j.col <- j.col[j.col != 0]
	j.col <- names(j.col)
	tb <- tb[,j.col]
	tb <- tb[j.row,]
	tb
}