frum_data_gen.R

# From the FrumForum.com Tea Party survey we see the following result for 
# the questions: 

# Question 1: In approximate percentage terms, how much is the U.S. (federal) 
# government currently taking out of the U.S. economy in taxation?
#
# Mean:     42.06%
# STD:      19.06%
# Actual:   31.5%
# 
# k:        92.77
# \theta:   0.45

tax1<-rgamma(10000,shape=92.77,scale=0.45)

# Question 2: How much federal income tax do you think a typical family earning 
# $50,000 pays (in 1,000 dollars)?
#
# Mean:     $12.71
# STD:      $12.06
# Actual:   $7.5
#
# k:        13.4
# \theta:   0.95

tax2<-rgamma(10000,shape=13.4,scale=0.95)

# Create a data frame from simulated data
frum_data<-data.frame(cbind(tax1,tax2))