 cbind(AreYouHappy = sample( c("Yes", "No"), 00, replace = TRUE, prob = c(.00,.00)),         WouldYouPay = sample( c("Yes", "No"), 00, replace = TRUE, prob = c(.00,.00)),         WouldYouDonate = sample( c("Yes", "No"), 00, replace = TRUE, prob = c(.00,.00)))) 