# NOT RUN {
if(interactive()) {
library(shiny)
library(DT)
shinyApp(
ui = fluidPage(fluidRow(column(12, DTOutput('tbl')))),
server = function(input, output) {
real <- iris[,'Petal.Width',drop = F]
pred <- sample(iris$Petal.Width, nrow(iris), replace = T)
output$tbl = DT::renderDT(tb_predic(real, pred))
})
}
# }
Run the code above in your browser using DataCamp Workspace