###
### R routines for the R package dlnm (c)
#
findrank <- function(X) {
#
################################################################################
#
ev <- eigen(X,symmetric=TRUE,only.values=TRUE)$values
rank <- sum(ev>max(ev)*.Machine$double.eps*10)
#
return(rank)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.