# nay (proportion at age)
## class
setClass("nay", contains="FLQuant")
setGeneric("nay", function(object, ...){
standardGeneric("nay")
}
)
setMethod("nay", signature("FLQuant"), function(object, ...){
if(!missing(...)){
object <- trim(object, ...)
} else {
object <- object
}
m <- apply(object@.Data,c(2:6),function(x){x/max(x, na.rm=TRUE)})
nay <- object
nay@.Data <- m
dimnames(nay) <- dimnames(object)
units(nay) <- "norm"
new("nay", nay)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.