## Random length data
# suppose this is yellow perch to the nearest mm
df <- data.frame(spec=rep("Yellow Perch",170),
mm=c(rnorm(100,mean=125,sd=15),rnorm(50,mean=200,sd=25),
rnorm(20,mean=300,sd=40)))
## Example graphics
op <- par(mar=c(3,3,2,1),mgp=c(1.7,0.5,0))
# Using 10-mm increments
psdPlot(~mm,data=df,species="Yellow perch",w=10)
psdPlot(~mm,data=df,species="Yellow perch",w=10,substock.col="gray90",
stock.col="gray30")
# ... but without the PSD values
psdPlot(~mm,data=df,species="Yellow perch",w=10,psd.add=FALSE)
par(op)
Run the code above in your browser using DataLab