inst/apps/berkson_interval/ui.R

In Auburngrads/SMRD: Statistical Methods For Reliability Data

ui = fluidPage(titlePanel('To change the plot update the code and click "Evaluate" '),
               theme = SMRD::add_theme(getShinyOption("theme")), 
               SMRD::add_css(),

               
sidebarLayout(
  sidebarPanel(width = 5,
  shinyAce::aceEditor(fontSize = 16, 
                      wordWrap = T,
                      outputId = "berkint", 
                      mode = "r", 
                      theme = "github", 
                      height = "450px", 
                      value = "
par(family = 'serif', 
    mfrow = c(1,2), 
    las = 1, 
    cex = 1.25)

library(SMRD)

zoom <- 1.5

Berkson200.ld <- 
frame.to.ld(SMRD::berkson200,
            response.column = c(1,2), 
            censor.column = 3,
            case.weight.column = 4)

simple.contour(Berkson200.ld, 
               distribution = 'exponential', 
               xlim = c(400,800),
               original.par = F)

simple.contour(Berkson200.ld, 
               distribution = 'weibull', 
               show.confidence = F, 
               zoom.level = zoom)

par(mfrow = c(1,1))"),

        actionButton("berks", "Evaluate")),
        
        mainPanel(plotOutput("berkint"), width = 7)))