Nothing
init.compet <- function(reference,competitors,final.volume=500,comp.names=letters[1:length(competitors)],round=1)
{
ref.toadd <- (reference/(reference+competitors))*final.volume
com.toadd <- final.volume-ref.toadd
ratio <- ref.toadd/com.toadd
results <- matrix(c(ref.toadd,com.toadd,ratio),byrow=FALSE,ncol=3)
rownames(results) <- comp.names
colnames(results) <- c('Ref.','Comp.','R/C')
return(results)
}
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.