# NOT RUN {
##====================================
## Graphical representation of the example input data
palette(rainbow(12, s = 0.6, v = 0.75))
mp <- apply(bceInput$Rat,MARGIN=2,max)
mp2 <- apply(bceInput$Dat,MARGIN=2,max)
pstars <- rbind(t(t(bceInput$Rat)/mp),t(t(bceInput$Dat)/mp2))
stars(pstars, len = 0.9, key.loc = c(7.2, -2),scale=FALSE,
ncol=5,ylim=c(0,3),main = "bce Input: species + field samples",
draw.segments = TRUE, flip.labels=FALSE)
# }
Run the code above in your browser using DataLab