Nothing
RUN <-
function(nHours=1){
nTurns=world$nTurns
start=proc.time()[3]
stop=proc.time()[3]
while(((stop-start)/60/60)<nHours){
TALK(sample(nTurns,1))
stop=proc.time()[3]
} }
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.