## 
## ==============================
## Survey Question:
##  How much do you feel a $250 donation would make a difference? 
## 
## Call:
## lm(formula = as.formula(paste(v, "~ condition")), data = data)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -5.0000 -0.8065  0.1935  1.1452  2.0000 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept)    5.8065     0.2672  21.727   <2e-16 ***
## conditionmax  -0.8065     0.3779  -2.134    0.037 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.488 on 60 degrees of freedom
## Multiple R-squared:  0.07053,    Adjusted R-squared:  0.05504 
## F-statistic: 4.553 on 1 and 60 DF,  p-value: 0.03695
## 
## 
## ==============================
## Survey Question:
##  How effective do you think Bright Future is at fighting hunger? 
## 
## Call:
## lm(formula = as.formula(paste(v, "~ condition")), data = data)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.7419 -0.7419 -0.0968  1.1694  2.2581 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept)    5.0968     0.2846  17.909   <2e-16 ***
## conditionmax  -0.3548     0.4025  -0.882    0.381    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.585 on 60 degrees of freedom
## Multiple R-squared:  0.01279,    Adjusted R-squared:  -0.003664 
## F-statistic: 0.7773 on 1 and 60 DF,  p-value: 0.3815
## 
## 
## ==============================
## Survey Question:
##  How trustworthy do you think Bright Future is? 
## 
## Call:
## lm(formula = as.formula(paste(v, "~ condition")), data = data)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.7419 -0.7419 -0.0645  1.2581  2.2581 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept)    5.0645     0.2761  18.342   <2e-16 ***
## conditionmax  -0.3226     0.3905  -0.826    0.412    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.537 on 60 degrees of freedom
## Multiple R-squared:  0.01125,    Adjusted R-squared:  -0.005233 
## F-statistic: 0.6824 on 1 and 60 DF,  p-value: 0.412
## 
## 
## ==============================
## Survey Question:
##  How credible do you find this claim? 
## 
## Call:
## lm(formula = as.formula(paste(v, "~ condition")), data = data)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -4.355 -1.129 -0.129  1.452  2.645 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept)    5.1290     0.2901  17.678   <2e-16 ***
## conditionmax  -0.7742     0.4103  -1.887    0.064 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.615 on 60 degrees of freedom
## Multiple R-squared:  0.05601,    Adjusted R-squared:  0.04028 
## F-statistic:  3.56 on 1 and 60 DF,  p-value: 0.06403
## 
## 
## ==============================
## Survey Question:
##  If you were given $25 as a bonus prize today, how much would you donate? 
## 
## Call:
## lm(formula = as.formula(paste(v, "~ condition")), data = data)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -9.9032 -7.6532  0.0968  5.2903 15.2903 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept)    9.9032     1.5029   6.589 1.25e-08 ***
## conditionmax  -0.1935     2.1254  -0.091    0.928    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 8.368 on 60 degrees of freedom
## Multiple R-squared:  0.0001382,  Adjusted R-squared:  -0.01653 
## F-statistic: 0.008293 on 1 and 60 DF,  p-value: 0.9277