R/xsaTest.R

Defines functions xsaTest

utils::globalVariables(c("FLXSA.control","FLXSA"))

xsaTest<-function(om,pg=10,ctrl=FLXSA.control()){
  
  stk=setPlusGroup(om,pg)
  idx=FLIndex(index=stock.n(stk))
  range(idx)[c("plusgroup","startf","endf")]=c(pg,0.01,.1)
  
  stk+FLXSA(stk,idx,control=ctrl,diag.flag=FALSE)}
laurieKell/mydas-pkg documentation built on Nov. 8, 2019, 10:58 p.m.