========================================================

library(knitr)
library(rmarkdown)
options(scipen=3)
options(width=60)
opts_chunk$set(comment = "", warning = FALSE, message = FALSE, echo = TRUE, tidy = FALSE, size="small",fig.height=5)
tmp99<-get.result.MultiArm()

Hypothesis for Power Analysis

cat('Comparison of ',round(tmp99$p20*100),'% versus ',round(tmp99$p10*100),'% response Rate',sep='') 

Sample Size Calculation

cat(tmp99$a1)

Operating Characteristics

cat(tmp99$a2)

Power Analysis

cat(tmp99$power)

Type I error

cat(tmp99$typeI)

Summary

cat(tmp99$a3)

Tables of Power Anlaysis

     tmp98 <- get.result.MultiArm()

        tmp3<-list(H1=tmp98$H1.table,H0=tmp98$H0.table)

        for(i in 1:length(tmp3))
        {
            tmp40<-tmp3[[i]]
            cat('\n-----------------------------------------------\n')
            cat('\n\n',tmp40$scenario,'\n')
            print(kable(tmp40$table))
            cat('\n',tmp40$arm.pass,'\n')
            cat('\n',tmp40$summary,'\n') 
        }


dungtsa/BayesianPickWinner documentation built on Dec. 11, 2024, 1:12 p.m.