Skip to content
Prev 43737 / 398513 Next

(no subject)

meriema.aupetit at free.fr writes:
How about this?

intbin <- function(x, n) 
  if(n) 
    paste(intbin(x%/%2, n-1), x%%2, sep="")
  else if (x)
    stop("Insufficient field width")