calcFinStat
| 1 2 | calcFinStat(FinSeri, stat = c("mean", "sum", "slope", "slope/mean",
  "slope/growthsd", "sd", "mean/sd"), fname, rm_N)
 | 
| 1 2 | # calcFinStat
FinStat <- calcFinStat(FinSeri,"mean")
 | 
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.