inst/1_1MFScondist/ui_N.R

In mephas/mephas: Medical and Pharmaceutical Statistics Based on Shiny

#****************************************************************************************************************************************************1.1. Normal distribution
sidebarLayout(

	sidebarPanel(

	h4(tags$b("Step 1. Select the data source")),
	p("Mathematical-based, simulated-data-based, or user data-based"),
	#Select Src
	selectInput(
	    "InputSrc", "Select plot",
	    c("Mathematical formula based" = "MathDist",
	      "Simulation data based" = "SimuDist",
	      "Upload data based" = "DataDist")),
	hr(),
	#Select Src end
		h4(tags$b("Step 2. Set parameters")),

	  #condiPa 1
	  conditionalPanel(
	    condition = "input.InputSrc == 'MathDist'",
	    #h3("Draw a Normal Distribution"), p(br()),

	    HTML("<b>Set Parameters for N(&#956, &#963)</b>"),
	    numericInput("mu", HTML("1. Mean(&#956), the dashed line, indicates the location  "), value = 0, min = -10000000, max = 10000000),
	    numericInput("sigma", HTML("2. Standard Deviation(&#963), indicates the shape"), value = 1, min = 0, max = 10000000),
	    hr(),
	   	numericInput("n", HTML("3. Blue Area = Pr(Mean-n*SD < X < Mean+n*SD)"), value = 1, min = 0, max = 10),
	    hr(),
	    numericInput("xlim", "4. Change range of x-axis, symmetric to 0", value = 5)
	    #numericInput("ylim", "Range of y-axis > 0", value = 0.5, min = 0.1, max = 1),
	  ),
	  #condiPa 1 end

	  #condiPa 2
	  conditionalPanel(
	    condition = "input.InputSrc == 'SimuDist'",
	    numericInput("size", "Sample size of simulated numbers", value = 100, min = 1),
	    sliderInput("bin", "The number of bins in histogram", min = 0, max = 100, value = 0),
	    p("When the number of bins is 0, plot will use the default number of bins")

	  ),
	  #condiPa 2 end

	  #condiPa 3
	  conditionalPanel(
	    condition = "input.InputSrc == 'DataDist'",

	    tabsetPanel(
	      tabPanel("Manual Input",p(br()),
    p("Data point can be separated by , ; /Enter /Tab /Space"),
    p(tags$b("Data be copied from CSV (one column) and pasted in the box")), 	        
	        tags$textarea(
	          id = "x", #p
	          rows = 10,
	          "-1.8\n0.8\n-0.3\n1\n-1.2\n-0.7\n-0.7\n-0.6\n1.3\n-0.8\n-1.2\n0.6\n2.2\n0.5\n0.4\n-0.3\n0.3\n-0.2\n-1.1\n0"
	        ),
	        p("Missing value is input as NA")
	      ),
	      tabPanel.upload.num(file ="file", header="header", col="col", sep="sep")

	    ),
	    sliderInput("bin1","The number of bins in histogram", min = 0, max = 100, value = 0),
	    p("When the number of bins is 0, plot will use the default number of bins")
	  ),
	  #condiPa 3 end
	  	hr(),
	    h4(tags$b("Step 3. Show Probability")),
	    numericInput("pr", HTML("Area Proportion Left to Red line = Pr(X < x<sub>0</sub>), x<sub>0</sub> is the position of Red-line"), value = 0.025, min = 0, max = 1, step = 0.05),

	    hr()
	), #sidePa end

	mainPanel(
		h4(tags$b("Outputs")),

		conditionalPanel(
		  condition = "input.InputSrc == 'MathDist'",
		  h4("Mathematical-based Plot"),
		  #tags$b("Normal distribution plot"),
		  #plotOutput("norm.plot", click = "plot_click", width = "600px", height = "400px"), #click = "plot_click",
		  plotOutput("norm.plot", click = "plot_click"), #click = "plot_click",

		  verbatimTextOutput("info"),
		  p(br()),
		  p(tags$b("The position of the red line and the blue ares")),
		  tableOutput("xs"),
		  hr(),
		  plotly::plotlyOutput("norm.plot.cdf")

		),

		conditionalPanel(
		  condition = "input.InputSrc == 'SimuDist'",
		  h4("Simulation-based Plot"),
		  tags$b("Histogram from random numbers"),
		  plotly::plotlyOutput("norm.plot2"),	# click = "plot_click2",

		  #verbatimTextOutput("info2"),
		  downloadButton("download1", "Download Random Numbers"),
		  p(tags$b("Sample descriptive statistics")),
		  tableOutput("sum")
		  #verbatimTextOutput("data")

		),

		conditionalPanel(
		  condition = "input.InputSrc == 'DataDist'",
		  tags$b("Data preview"),
		DT::DTOutput("NN"),
		  h4("Distribution of Your Data"),

		  tags$b("Density from upload data"),
		  plotly::plotlyOutput("makeplot.2"),
		  tags$b("Histogram from upload data"),
		  plotly::plotlyOutput("makeplot.1"),
		  tags$b("CDF from upload data"),
		  plotly::plotlyOutput("makeplot.3"),
		  p(tags$b("Sample descriptive statistics")),
		  tableOutput("sum2")


		)

	)
	)