"plotLSCV" <- function(x)
{
## Verifications
if (!inherits(x, "khrud"))
stop("x should be an object of class \"khrud\"")
## Graphical settings
opar<-par(mfrow=n2mfrow(length(x)))
## One graph per animal
for (i in 1:length(x)) {
plot(x[[i]]$h$CV[,1], x[[i]]$h$CV[,2], pch=16, main=names(x)[i],
xlab="h parameter", ylab="CV(h)", cex=0.5)
lines(x[[i]]$h$CV[,1], x[[i]]$h$CV[,2])
}
par(opar)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.