Unverified Commit 8a3a1b84 authored by JesperGrud's avatar JesperGrud Committed by GitHub
Browse files

Update UMIstuffFUN.R

parent 7c8b1038

UMIstuffFUN.R

+2 −0
Original line number Diff line number Diff line
@@ -19,6 +19,7 @@ splitRG<-function(bccount,mem){ 
  cs=0

  chunkID=1

  bccount[,chunkID:=0]

  if(sum(bccount$n) > maxR) {

  for(i in 1:nc){

    cs=cs+bccount[i]$n

    if(bccount[i]$n>maxR){
@@ -33,6 +34,7 @@ splitRG<-function(bccount,mem){ 
    }

    bccount[i][,"chunkID"]=chunkID

  }

    }

  return(bccount)

}

CRA Git | Maintained and supported by SUSTech CRA and CCSE