Displaying 1 result from an estimated 1 matches for "ergebnisse200".
2006 Dec 07
1
Simulation in R - Part 2
Hello!
So, the simulation works (drawing 100 samples and then calculate the
model for each sample). Here is the code:
--snip--
# sample size n=200
ergebnisse200 <- rep(0, each=100)
stichproben200 <- vector(?list?, 100)
default200 <- rep(0, each=100)
for (i in seq(1:100)) {
n <- dim(daten)[1]
ix <- sample(n,200)
samp_i <- daten[ix,] # draw samples
y <- sum(samp_i$y) # number of defaults
stichproben200[[i]] <- samp_i # sa...