setFun<- | R Documentation |
Set the model format/link function (identity/inverse/log/exponential). Only used when FacModel == TRUE.
setFun(this, ...) <- value ## S4 replacement method for signature 'DevFac,character' setFun(this) <- value
this |
DevFac Object |
... |
Additional function arguments |
value |
String Value (default:"identity") |
xIBNERFactor <- new("DevFac") setID(xIBNERFactor)<-"IF1" setFacModel(xIBNERFactor)<-TRUE setFun(xIBNERFactor)<-"identity" setXname(xIBNERFactor)<- c("x1","x2","x3") setParas(xIBNERFactor)<-c(0.6,-0.2,0.01,-0.3,0.02,0.03,0.01,0.02) xIBNERFactor<-setDevFac(xIBNERFactor) xIBNERFactor
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.