Displaying 1 result from an estimated 1 matches for "uninjur".
Did you mean:
linjur
2003 Dec 04
1
assigning colors to barplot when beside=TRUE
...s(pig), pig)] # day of sacrifice ordered as pig/tbl
colv <- match(oday, c(1, 3))+1
barplot(tbl[,c(o1, oB)], beside=TRUE, ylim=c(0,8), xlab="pig",
ylab="weight gain (g)", col=colv)
legend(12, 8, fill=c(2:3,NA), legend=c(paste("day", c(1,3)), "uninjured"))
box()
detach()
rm(pigs, tbl, o1, oB, oday, colv)
-------------------------------------------------
This mail sent through IMP: http://horde.org/imp/