Montreal Lecture

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

This note was uploaded on 11/16/2010 for the course STAT 340 taught by Professor Xu(sunny)wang during the Spring '09 term at Waterloo.

Ask a homework question - tutors are online