inst/apps/hazard_demo/ui.R

ui = navbarPage(title = 'Hazard Function',
                collapsible = T, 
                position = 'fixed-top',
                theme  = add_theme(getShinyOption('theme')),
                header = add_css(),
                footer = (),


tabPanel('Properties',
         uiOutput('hazdemo', class = 'ta-text')),

tabPanel('Computing Values in R',
         uiOutput('hazr', class = 'ta-text')),

navbarMenu('Plots', icon = icon('bar-chart-o'), 

tabPanel("Hazard Function Plot",
  sidebarLayout( 
    sidebarPanel(width = 5,
      shinyAce::aceEditor(fontSize = 16, 
                          wordWrap = T,
                          outputId = "hazplot", 
                          mode = "r", 
                          theme = "github", 
                          value = 
"par(family = 'serif',mar = c(4,6,2,1))

curve(
dlnorm(x, meanlog = log(1.25), sdlog = 1)/
(1-plnorm(x, meanlog = log(1.25), sdlog = 1)),
xlab = 'Time, t',
ylab = expression(h(t)[Log-Normal]),
ylim = c(0,1),
xlim = c(0,6),
lwd = 3,
lty = 4,
col = 5,
cex.lab = 1.5,
cex.axis = 1.5,
las = 1)"),

        actionButton("evalhaz", "Evaluate")),
        
        mainPanel(plotOutput("plothaz", height = "600px"), width = 7))),

tabPanel("Bathtub-Shaped Hazard",
  sidebarLayout( 
    sidebarPanel(width = 5,
      shinyAce::aceEditor(fontSize = 16, 
                          wordWrap = T,
                          outputId = "figbtplot", 
                          mode = "r", 
                          theme = "github", 
                          value = 
"par(family = 'serif',font = 2)

NMWPdf <- function(t){
(.071*.595*t^(.595-1)+
7.015*10^-8*(.016+.197*t)*
t^(.016-1)*
exp(.197*t))*
(exp(-1*(.071*t^.595+7.015*10^-8*t^.016*exp(.197*t))))}

curve(NMWPdf,from = 0.0002,to = 83,n = 1000, 
xlab = 't', 
ylab = 'h(t)',
lwd = 3, 
ylim = c(0,0.05), 
las = 1, 
cex.lab = 1.5,
cex.axis = 1.5)
segments(x0 = c(18,63),
         y0 = c(0,0),
         x1 = c(18,63),
         y1 = c(.03,.03),lty=2)
text(x = c(7.5, 40, 75),
     y = rep(.001, 3),
     c('Infant Mortality','Useful Life','Wearout'),
     cex = 1.5)"),

      actionButton("evalfigbt", "Evaluate")),
        
      mainPanel(plotOutput("plotfigbt", height = "600px"), width = 7)))))

Try the teachingApps package in your browser

Any scripts or data that you put into this service are public.

teachingApps documentation built on July 1, 2020, 5:58 p.m.