{[ promptMessage ]}

Bookmark it

{[ promptMessage ]}

Montreal Lecture - #LifeLeft1<-function(n#Input the...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
#Original Montreal Problem # ## JB--1-Ch -2- D -3---- B# | | |# 6 7 4# | | |# | M | # | | |# | 8 |# | | |# Cy --5- H
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: ------/-#LifeLeft1<-function(n) { #Input the number of repeats. # L <- NULL L for (i in 1:n) f { { T <- rexp(8,1/20) < L1 <- min(T[1],T[2],T[7]) L2 <- min(T[1],T[5],T[6],T[8]) L3 <- min(T[1],T[2],T[3],T[4],T[8]) m L4 <- min(T[1],T[6],T[5],T[4],T[3],T[7]) L[i] <- max(L1,L2,L3,L4) m } return(L) r } } data=LifeLeft1(10000) d max(data) m mean(data) m min(data) m sd(data)...
View Full Document

{[ snackBarMessage ]}