BOOTSTRAP DENGAN PROGRAM R

PROGRAM INI DIBUAT OLEH DEWI RACHMATIN

> boot_dewi <- function(x,B)

{

L <- length(x)

indek <- matrix(0,B,L)

xb <- matrix(0,B,L)

for (s in 1:B)

{

a <- sample(1:L,L,T)

indek[s,] <- a

}

for (i in 1:B)

{

for ( j in 1:L)

{

xb[i,j] <- x[indek[i,j]]

}

}

list(indek,xb)

}