old/ui.r

 model_data = budworm.lg$model 
ids = names(budworm.lg$model )
 shinyUI(fluidPage(
		uiOutput("ui"),
		verbatimTextOutput(ids[1]),
		verbatimTextOutput(ids[2]),
		verbatimTextOutput(ids[3]),
		verbatimTextOutput('df')
		)
		
	)
tomliptrot/predictshine documentation built on May 31, 2019, 6:18 p.m.