## Function translated automatically using 'matlab.to.r()'
## Author: Andrew Hooker
get_fim_size <- function(poped.db){
#Returns the size of FIM, i$e. col or row size
numnotfixed_bpop = sum(poped.db$parameters$notfixed_bpop)
numnotfixed_d = sum(poped.db$parameters$notfixed_d)
numnotfixed_covd = sum(poped.db$parameters$notfixed_covd)
numnotfixed_docc = sum(poped.db$parameters$notfixed_docc)
numnotfixed_covdocc = sum(poped.db$parameters$notfixed_covdocc)
numnotfixed_sigma = sum(poped.db$parameters$notfixed_sigma)
numnotfixed_covsigma = sum(poped.db$parameters$notfixed_covsigma)
n = numnotfixed_bpop+numnotfixed_d+numnotfixed_covd+numnotfixed_docc+numnotfixed_covdocc+numnotfixed_sigma+numnotfixed_covsigma
return( n )
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.