R/creatbin.r

In laijiangshan/rdacca.hp: Hierarchical Partitioning for Canonical Analysis

#'Internal function for rdacca.hp()
creatbin <-
function(col, binmatrix) {
row<-1
val<-col
	while (val!=0){              
	if (odd(val)) {
		binmatrix[row,col]=1 
	}
	val<-as.integer(val/2)
	row<-row+1
}

##Return matrix
return(binmatrix)
}

#'Internal function for rdacca.hp()
odd <- function (val) 
{
    if (val%%2 == 0) 
     return(FALSE)
	 else
    return(TRUE)
}