setMethod('setControl<-', signature(object='aspic',value="FLPar"), function(object,value,min=0.1,max=10.0) {
nms=dimnames(object@params)$params
object@control=FLPar(array(rep(c(1,NA,NA,NA,1),each=length(nms)),
dim =c(length(nms),5,dims(object@params)$iter),
dimnames=list(params=nms,option=c("fit","min","val","max","lambda"),
iter =dimnames(object@params)$iter)))
object@control[nms,"val"]=value[nms,]
object@control[nms,"min"]=value[nms,]*min
object@control[nms,"max"]=value[nms,]*max
return(object)})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.