R/RUN.R

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]
}	}

Try the MoLE package in your browser

Any scripts or data that you put into this service are public.

MoLE documentation built on May 2, 2019, 3:02 p.m.