R/rowcol.R

rowcol <-
function(I,J,elements){
 elements[elements>(I*J)]=NA
 whichcol=ceiling(elements/I)
 whichrow=elements-(I*(whichcol-1))
 #for (i in 1:length(elements)){print(x[whichrow[i],whichcol[i]])}
 return(list(whichrow=whichrow,whichcol=whichcol))}

Try the PCFAM package in your browser

Any scripts or data that you put into this service are public.

PCFAM documentation built on May 2, 2019, 2:37 a.m.