[R] Pairwise comparison test

[Thomas Subia]

Colleague,

smokers  <- c( 83, 90, 129, 70 )
patients <- c( 86, 93, 136, 82 )
pairwise.prop.test(smokers, patients)

# Output

    Pairwise comparisons using Pairwise comparison of proportions 

data:  smokers out of patients 

   1            2            3    
2 1.000     -             -    
3 1.000     1.000     -    
4 0.119     0.093     0.124

Is there a way to generate a graph which illustrates the pairwise comparison of proportions?

Thomas Subia