email1<-function(n,lambda,n.days){ #vertex set (n people) V=1:n #starting time of simulation tm<-0 #initialize tms<-NULL sender<-NULL receiver<-NULL while (tm