# 正の数値を1に変換する関数

to.pa <- function(x, na0=TRUE){
	x <- as.matrix(x)
	if(na0==TRUE){x <- ifelse((is.na(x) | is.nan(x)), 0, x)}
	x <- ifelse(x>0, 1, x)
	as.data.frame(x)
}

# 使用方法
x <- c(0.001, 0, 5, 0.3, NA)
to.pa(x)
to.pa(x, na0=FALSE)	#NAはそのまま