Very Wide , Non-Informative Prior

bayescont(eslo=-60,eshi=60,alpha=1,hci=42,lci=-8,thr=30,rope1=10,rope2=-10)
##                             Prior mean 
##                                   0.00 
##                               Prior SD 
##                                  30.61 
##                            Power prior 
##                                   1.00 
## Effective sample size Data-prior ratio 
##                                   5.76 
##                              Data mean 
##                                  17.35 
##                                Data SD 
##                                  12.76 
##                         mean posterior 
##                                  14.78 
##                           sd posterior 
##                                  11.77 
##                     lower ci posterior 
##                                  -8.30 
##                    higher ci posterior 
##                                  37.86 
##                                 Pr(>0) 
##                                  89.53 
##                        Pr(>threshold ) 
##                                   9.81 
##      Probability in equivalence region 
##                                  32.47

similar estimates to default frequentist analysis.

bayescontplot(eslo=-60,eshi=60,alpha=1,hci=42,lci=-8,title = "Non-Informative Prior")

Skeptical prior

Assuming a worsening of 30 seconds with PCI and max improvement of 30 seconds with mean of zero

bayescont(eslo=-30,eshi=30,alpha=1,hci=42,lci=-8,thr=30,rope1=10,rope2=-10)
##                             Prior mean 
##                                   0.00 
##                               Prior SD 
##                                  15.31 
##                            Power prior 
##                                   1.00 
## Effective sample size Data-prior ratio 
##                                   1.44 
##                              Data mean 
##                                  17.35 
##                                Data SD 
##                                  12.76 
##                         mean posterior 
##                                  10.24 
##                           sd posterior 
##                                   9.80 
##                     lower ci posterior 
##                                  -8.97 
##                    higher ci posterior 
##                                  29.44 
##                                 Pr(>0) 
##                                  85.19 
##                        Pr(>threshold ) 
##                                   2.19 
##      Probability in equivalence region 
##                                  47.09
bayescontplot(eslo=-30,eshi=30,alpha=1,hci=42,lci=-8,title = "Skeptical Prior")

Optimistic prior

Assuming at worst - no improvement with PCI and at best improvement of 60 seconds with mean improvement of thirty seconds

bayescont(eslo=0,eshi=60,alpha=1,hci=42,lci=-8,thr=30,rope1=10,rope2=-10)
##                             Prior mean 
##                                  30.61 
##                               Prior SD 
##                                  15.31 
##                            Power prior 
##                                   1.00 
## Effective sample size Data-prior ratio 
##                                   1.44 
##                              Data mean 
##                                  17.35 
##                                Data SD 
##                                  12.76 
##                         mean posterior 
##                                  22.78 
##                           sd posterior 
##                                   9.80 
##                     lower ci posterior 
##                                   3.58 
##                    higher ci posterior 
##                                  41.99 
##                                 Pr(>0) 
##                                  99.00 
##                        Pr(>threshold ) 
##                                  23.07 
##      Probability in equivalence region 
##                                   9.56
bayescontplot(eslo=0,eshi=60,alpha=1,hci=42,lci=-8,title = " Optimistic Prior")

Highly optimistic prior

bayescont(eslo=30,eshi=90,alpha=1,hci=42,lci=-8,thr=30,rope1=10,rope2=-10)
##                             Prior mean 
##                                  61.22 
##                               Prior SD 
##                                  15.31 
##                            Power prior 
##                                   1.00 
## Effective sample size Data-prior ratio 
##                                   1.44 
##                              Data mean 
##                                  17.35 
##                                Data SD 
##                                  12.76 
##                         mean posterior 
##                                  35.33 
##                           sd posterior 
##                                   9.80 
##                     lower ci posterior 
##                                  16.12 
##                    higher ci posterior 
##                                  54.54 
##                                 Pr(>0) 
##                                  99.98 
##                        Pr(>threshold ) 
##                                  70.67 
##      Probability in equivalence region 
##                                   0.49
bayescontplot(eslo=30,eshi=90,alpha=1,hci=42,lci=-8,title = "Highly Optimistic Prior")

Probably small effect prior

bayescont(eslo=15,eshi=45,alpha=1,hci=42,lci=-8,thr=30,rope1=10,rope2=-10)
##                             Prior mean 
##                                  30.61 
##                               Prior SD 
##                                   7.65 
##                            Power prior 
##                                   1.00 
## Effective sample size Data-prior ratio 
##                                   0.36 
##                              Data mean 
##                                  17.35 
##                                Data SD 
##                                  12.76 
##                         mean posterior 
##                                  27.10 
##                           sd posterior 
##                                   6.56 
##                     lower ci posterior 
##                                  14.24 
##                    higher ci posterior 
##                                  39.96 
##                                 Pr(>0) 
##                                 100.00 
##                        Pr(>threshold ) 
##                                  32.93 
##      Probability in equivalence region 
##                                   0.46
bayescontplot(eslo=15,eshi=45,alpha=1,hci=42,lci=-8,title = "Small effect Prior")