search for: excret

...n on a single line? Cheers, David y.bar.new = c(30, 15) se.ybar.new = c(2,3) error.bars(y.bar.new, se.ybar.new, c("Control (n=18)", "CKD (n=18)")) error.bars<-function(yv,z,nn){ xv<-barplot(yv,ylim=c(0,(max(yv)+max(z))),names=nn,ylab="Total five hour potassium excretion (mmol)", sub= "Figure 1B: Hour 1-5 potassium excretion") g=(max(xv)-min(xv))/50 for (i in 1:length(xv)) { lines(c(xv[i],xv[i]),c(yv[i]+z[i],yv[i]-z[i])) lines(c(xv[i]-g,xv[i]+g),c(yv[i]+z[i], yv[i]+z[i])) lines(c(xv[i]-g,xv[i]+g),c(yv[i]-z[i], yv[i]-z[i])) }} > sessionInfo() R...

...uing immaculate exchequer tattler > exhilarate accessibility countries 4th sclerosis hospice blvd > hypothalamic tappet acronyms talkativeness meridional botches allstate > bodybuilding exceeding powder boyishness breaches hydrology satanic > breaching cringe tall bowdlerize excretion boomerangs illustrations > ampex maybe bonaventure icings temperance portulaca militarily > accordions blaine > > References > > 1. http://srd.yahoo.com/drst/bowed/*http://www.med12z.com/sh/index.html > _______________________________________________ > openssh-...