ejam2means - quick look at averages, via ejamit() results

Usage

ejam2means(ejamitout, vars = names_these)

Arguments

ejamitout: as from ejamit()
vars: all or some of colnames in ejamitout$results_overall

Value

means in a useful format

Examples

out <- testoutput_ejamit_100pts_1miles
ejam2means(out, vars = names_e_ratio_to_state_avg)
#>                                                        wtdmean
#> Ratio to State avg Particulate Matter                  1      
#> Ratio to State avg Ozone                               1      
#> Ratio to State avg Nitrogen Dioxide (NO2)              1.3    
#> Ratio to State avg Diesel Particulate Matter           1.4    
#> Ratio to State avg Toxic Releases to Air               0.8    
#> Ratio to State avg Traffic Proximity and Volume        1.6    
#> Ratio to State avg Lead Paint Indicator                1.3    
#> Ratio to State avg Superfund Proximity                 1.8    
#> Ratio to State avg RMP Proximity                       1.1    
#> Ratio to State avg Hazardous Waste Proximity           1.7    
#> Ratio to State avg Underground Storage Tanks indicator 1.6    
#> Ratio to State avg Wastewater Discharge Indicator      2.6    
#> Ratio to State avg Drinking Water Non-Compliance       2.7    
#> 
#> 

#' # these should tell you the same thing:
out$results_summarized$keystats[
  rownames(out$results_summarized$keystats) %in% names_e_ratio_to_state_avg, 
]
#>                                    Average site Average person
#> ratio.to.state.avg.pm                      1.00           1.04
#> ratio.to.state.avg.o3                      1.00           1.02
#> ratio.to.state.avg.no2                     0.98           1.27
#> ratio.to.state.avg.dpm                     1.02           1.43
#> ratio.to.state.avg.rsei                    1.01           0.83
#> ratio.to.state.avg.traffic.score           0.98           1.61
#> ratio.to.state.avg.pctpre1960              1.09           1.30
#> ratio.to.state.avg.proximity.npl           1.53           1.80
#> ratio.to.state.avg.proximity.rmp           0.99           1.08
#> ratio.to.state.avg.proximity.tsdf          1.01           1.67
#> ratio.to.state.avg.ust                     0.83           1.63
#> ratio.to.state.avg.proximity.npdes         1.24           2.57
#> ratio.to.state.avg.drinking                1.66           2.74
ejam2means(out, vars = names_e_ratio_to_state_avg)
#>                                                        wtdmean
#> Ratio to State avg Particulate Matter                  1      
#> Ratio to State avg Ozone                               1      
#> Ratio to State avg Nitrogen Dioxide (NO2)              1.3    
#> Ratio to State avg Diesel Particulate Matter           1.4    
#> Ratio to State avg Toxic Releases to Air               0.8    
#> Ratio to State avg Traffic Proximity and Volume        1.6    
#> Ratio to State avg Lead Paint Indicator                1.3    
#> Ratio to State avg Superfund Proximity                 1.8    
#> Ratio to State avg RMP Proximity                       1.1    
#> Ratio to State avg Hazardous Waste Proximity           1.7    
#> Ratio to State avg Underground Storage Tanks indicator 1.6    
#> Ratio to State avg Wastewater Discharge Indicator      2.6    
#> Ratio to State avg Drinking Water Non-Compliance       2.7    
#> 
#>