bootstrapping happiness

bliss <- c('the garden and the veg', 'quiet early mornings', 'sunshine outside', 'our bike tour', 'his smile', 'cold showers', 'the last bits of cake', 'my future wings', 'hot chocolate', 'offline', 'a light breeze', 'scanning thru the pictures', 'skirts, tights and sandals', 'snail mail', 'reading on the train', 'beetroot salad', 'vectors & matrices', 'books-to-read', 'a seemingly never-ending summer', 'nothing is permanent', 'flexibility', 'rhythm', 'fresh laundry', 'the sound of steps', 'orange', 'long feet', 'not hungry', 'cuprum', 'reunions-soon-to-be', 'zoodiacs', 'umbrellas', 'kitchen dances', 'Portugal', 'openings', 'Sundays detective story', 'snug', 'Tomate', 'R geekism', 'barefoot', 'Schnegge', 'picnic blankets', 'a work in progress') ##random and incomplete

#The number of Bootstrap resamples
B <- 1327
#storage matrix
heaps.of.it <- matrix(NA, B, 1)

for (h in 1:B) {
resample <- sample(bliss, 12, replace=T)
heaps.of.it[h, ] <- mod(resample)
drop(resample)
}

save(heaps.of.it, file='~/everywhere') ##long live the geek