wrm.control<-function(eps=1e-5,denom.eps=1e-20,itmax=200){
contr.list<-list(eps=eps,denom.eps=denom.eps,itmax=itmax)
return(contr.list)
}
#
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.