Displaying 1 result from an estimated 1 matches for "gleft".
Did you mean:
left
2007 Feb 01
3
Can this loop be delooped?
...ot;RIGHT",nomatch=FALSE)==1){
extra1_1=max((groupnum-1)+((totalength%%numgroups)-numgroups),0)
extra1_2=(groupnum>numgroups-totalength%%numgroups)
}
else{
extra1_1=min(totalength%%numgroups,groupnum-1)
extra1_2=(groupnum<=totalength%%numgroups)
}
gsize=totalength%/%numgroups
gleft=((groupnum-1)*gsize)+extra1_1+1
gright=gleft+gsize+extra1_2-1
gleft:gright
}
The function appears to work okay. Then I used it as follows:
numgp1_v=sidect_v%/%compmin
numgroup_v[small]=max(1,numgp1_v[small])
smallindexlist<-list(NULL)
smallindexlist=sapply(1:numgroup_v[small],function(i){d...