Hi @umarkhandurrani,
help("plot.ageBias")
shows all the arguments for plotting this type of graphic.
I added the cex.pts= argument to get larger points:
library(FSA)
data(WhitefishLC)
ab1 <- ageBias(scaleC~otolithC,data=WhitefishLC,
nref.lab="Scale Age",ref.lab="Otolith Age")
plot(ab1, xHist=TRUE, yHist=TRUE,
col.CIsig="black", cex.main=2, cex.lab=1.5, cex.axis=1, show.pts=TRUE,
cex.pts=2)
I noted that if the axis labels were made too large then the graph did not fit on the plotting page. You can adjust the margin settings if you really need the axis labels at cex.lab=2
HTH