<div dir="ltr"><div><font face="arial, helvetica, sans-serif">Um outro exemplo, dessa vez usando </font><font face="courier new, monospace">sciplot::bargraph.CI...</font></div><div><font face="courier new, monospace"><br></font></div>
<div><span style="font-family:'courier new',monospace">### <code r></span><br></div><div><font face="courier new, monospace">dURL <- '<a href="http://www.ualberta.ca/~ahamann/teaching/renr480/Lab5d.zip">http://www.ualberta.ca/~ahamann/teaching/renr480/Lab5d.zip</a>'</font></div>
<div><font face="courier new, monospace">download.file(dURL, basename(dURL), mode='wb')</font></div><div><font face="courier new, monospace">unzip(basename(dURL),'lentils.csv')</font></div><div><font face="courier new, monospace">dat <- read.table('lentils.csv', head=T, sep=',')</font></div>
<div><font face="courier new, monospace">attach(dat)</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">require(sciplot)</font></div><div><font face="courier new, monospace">bargraph.CI(x.factor=FARM, group=VARIETY, response=YIELD, legend=T, </font></div>
<div><font face="courier new, monospace"> xlab="Location", ylab="Yield (kg/ha)", ylim=c(0,800), </font></div><div><font face="courier new, monospace"> cex.names=1, cex.lab=1, </font></div><div><font face="courier new, monospace"> x.leg=6, y.leg=700, cex.leg=1, leg.lab=c("Var A","Var B","Var C"), </font></div>
<div><font face="courier new, monospace"> col=grey.colors(3), </font></div><div><font face="courier new, monospace"> uc=T, lc=T, err.width=0.1, err.col="black", err.lty=1) </font></div><div><font face="courier new, monospace">### </code></font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="arial, helvetica, sans-serif">Fonte/Source: <a href="http://www.ualberta.ca/~ahamann/teaching/renr480/Lab5D.pdf">http://www.ualberta.ca/~ahamann/teaching/renr480/Lab5D.pdf</a><br>
</font></div><div class="gmail_extra"><br clear="all"><div><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>
Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div>
<br><br></div><div class="gmail_extra"><br></div><div class="gmail_extra"><br></div></div>