Displaying 1 result from an estimated 1 matches for "geometricmeanrow".
2009 Sep 11
2
help with for loop
example code:
P = function(whichday,columns){
y = which(pvalue[,whichday]<Pvaluetest, arr.ind=TRUE)
dayarb = raw_urine[y,day1_ind]
daystand = raw_urine[y,columns]
meandayxx = geometricmeanRow(dayarb)
meandayyy = geometricmeanRow(daystand)
diff = meandayyy - meandayxx
for(i in 1:nrow(diff)){
if(diff[i]>0){
#diffbig = meandayxx<meandayyy
x_index[i] = which(diff[i]>0)
x[i] = raw_urine[x_index[i],1]
dayx[i]= raw_urine[x_index[i],day1_ind]
dayy[i] = raw_urine[x_index[i],columns]
jpe...