amazon.co.jp/Intuitive-Biostatistics ... pc=c(2/100,50/100,40/100,8/100) names(ph)=c('特待 ... q=num%/%N while(q > 0 | digit > 1){ r=append(q%%N,r) q=q%/%N