email3b<-function(n,lambda.WD,lambda.WE,b1,b2,n.days){ #vertex set (n people) V=1:n #starting time of simulation (a Monday) tm<-0 #initialize tms<-NULL sender<-NULL receiver<-NULL non.sender<-NULL non.receiver<-NULL rep<-matrix(-Inf,ncol=n,nrow=n) rec<-matrix(-Inf,ncol=n,nrow=n) repetition<-NULL reciprocity<-NULL non.repetition<-NULL non.reciprocity<-NULL while (tm