dec2bin<-function(num, digits=8) { bin=c() if (num==0){ bin=0 } else { while(num!=0){ rem=num%%2 num=num%/%2 bin=c(rem,bin) } } if (length(bin) < digits){ res=matrix(0,nrow=1,ncol=digits) res[(digits-length(bin)+1):digits]=bin } else {res=bin} return(res) }