Nothing
ShowAllSimulations<-function(sym,y,x)
{
options(contrasts=c("contr.sum","contr.poly"))
outdec<-options(OutDec="."); on.exit(options(outdec))
options(OutDec=",")
MaxUtility<-caMaxUtility(sym,y,x)
BTLmodel<-caBTL(sym,y,x)
LogitModel<-caLogit(sym,y,x)
TotalUtility<-totalsimutility(sym,y,x)
allsimul<-cbind(TotalUtility,MaxUtility,BTLmodel,LogitModel)
print(round(allsimul,2))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.