runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinnyAIM_2_GRID.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Phenotyic_test (whussain2@unl.edu 2).R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
library(shiny); runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
library(shiny); runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
library(shiny); runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinnyAIM_2_GRID.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
library(shiny); runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinnyAIM_2_GRID.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinnyAIM_2_GRID.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinnyAIM_2_GRID.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinnyAIM_2_GRID.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinnyAIM_2_GRID.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinnyAIM_2_GRID.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinnyAIM_2_GRID.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/Test-tabseperate.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ error.R')
else if (input$plot.type == "boxplot") {
ggplot(read3(), aes(x=Day, y=Value)) +
geom_boxplot(aes(fill=Day))+
theme_classic()+
theme (plot.title = element_text(color="black", size=10, hjust=0),
axis.title.x = element_text(color="black", size=10, face="bold"),
axis.title.y = element_text(color="black", size=10, face="bold")) +
theme(axis.text = element_text(colour = "black"))+
theme(axis.text= element_text(face = "bold", color = "black", size = 8))+
theme(legend.position="none")+
aes(x = fct_inorder(Day))+
labs(title="",x="Time Point", y = "Trait Value")
}
library(shiny); runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
library(shiny); runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
column(8,
tags$body(
h2(strong('General information')),
#br(),
tags$div(
tags$p('ShinyAIM allows users to dynamically view and interpret longitudinal GWAS results.
'),
style = "font-size: 18px;"),
h3(strong('Features of the Application')),
tags$div(
img(src = 'image.png', align = "center", width = "100%", height = "100%")
),
br(),
h3(strong('Data Visualization in interactive way')),
#br(),
tags$div(
tags$div(tags$ul(
tags$li("Interactive Manhattan Plots."),
tags$li("Manhattan Plots Combined Across All Time Points."),
tags$li("Phenotypic Data visualization: Interactive Histograms, Density plots, and Box plots,")),
style = "font-size: 18px")
),
h3(strong('Guidelines')),
tags$div(
tags$ol(
tags$li("The application has three tabs including (a) Manhattan plots, (b) Combined Manhattan Plots, and (3) Phenotypic Data Visualization."),
tags$li("The application accepts CSV file format. Users can see the sample files available in GitHub folder. Also, the snapshot of file format for Manhatten plot, Combined Manhatten Plot and Phenotypic Data
Visulaization is shown below:."),
img(src = 'dataformat.png', align = "center", width = "100%", height = "100%"),
tags$ul(
tags$li("Files must have header rows"),
tags$li("Column names of the files should match with sample file names, order of the columns is not important."),
tags$li("Day represents timepoint and can be timepoint or different trait in users file."),
tags$li("chrom: represents number of chromosomes."),
tags$li("pos: represents position of markers."),
tags$li("P: represents p value for markers."),
tags$li("NSFT_ID: is id for genotypes and can be anything in users file."),
tags$li("Value: represents the phenotypic data for each time point.")
),
tags$li("For each tab separate CSV files needs to be uploaded, and users can use sample files from the github directory."),
tags$li("For Manhattan plot tab, once the CSV file in right format is uploaded, users need to choose the separator value in the file. Once users choose the separator value, the time points will be automatically updated in Choose Time point box.  Users can select any time point and Manhattan plot will be generated, and users can interact with it to get more information. Users can choose the significant threshold level by moving slider input bar."),
tags$li("For phenotypic data visualization, once the right CVS file is uploaded and file separator value chosen, the time point will be automatically updated. The users can select the time point, and choose the time point to see the histogram and density plots. Users can also select box plot type to see the trend and variation across all the time points. All the plot types are interactive, and users can interact to get more information   ."),
tags$li("For combined Manhattan plot, once CSV file is uploaded and separator value choose, the combined Manhattan plot will be automatically generated. Users can choose the significant threshold level and also number of columns they want in the combined/grid plot. Note: CSV file for Manhattan plot and combined Manhattan plot is same, however, they need to be uploaded separately.")
#tags$li("Please select colors of your conditions. They will be used for plotting."),
#tags$li("Enjoy, and give us feedback.")
), style = "font-size: 16px; line-height: 1.7;"),
h2(strong('Source Code and sample files')),
tags$div(
tags$p('Source code and sample files are available through GitHub at:.'),
style = "font-size: 18px;"),
tags$br(),
tags$div(
tags$p(strong('How to cite ShinyAIM:'), "Waseem Hussain, Malachy Campbell, Harkamal Walia, and Gota Morota, University of Nebraska Lincoln (manuscript under preperation)"),
style = "font-size: 16px"),
h3(strong('Contact Information and Help:')),
tags$div(
tags$p('Waseem Hussain - waseem.hussain@unl.edu; waseemhussain907@gmail.com, Gota Morota  -morota@unl.edu.'),
style = "font-size: 16px"),
br()
tags$footer(title="Your footer here", align = "right"))
)
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
library(shiny); runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
library(dplyr)
library(grid)
library(plotly)
library(manhattanly)
library(forcats)
# Define UI for the application
ui<- fluidPage(
# Application Title
headerPanel(h1("ShinyAIM: Shiny Application for Interactive Manhatten Plots", style = "font-family: 'Trattatello', fantasy; font-weight: 500; line-height: 1.1; color: #D2691E;", align = "center")),
tags$style(type="text/css",
".shiny-output-error { visibility: hidden; }",
".shiny-output-error:before { visibility: hidden; }"),
tabsetPanel(
tabPanel(
h4("Information", style = "color: #800080;"),
#img(src = 'image.png', align = "right", width = "50%", height = "50%"),
source("Information.R", local = TRUE)[1]
),
tabPanel(
h4("Interactive Manhatten Plots", style = "color: #800080;"),
sidebarLayout(
sidebarPanel(width = 3,
fileInput('file1', 'Upload CSV data file for Manhatten Plot:',
accept=c('text/csv','text/comma-separated-values,text/plain')),
checkboxInput('header', 'Data file has variable names as column headers.', TRUE),
radioButtons('sep', 'Data File separator value:',
c(Comma=',',
Semicolon=';',
Tab='\t')
),
uiOutput("manOutput"),
sliderInput("logpvalue", "Choose -log pValue:",
min = -log10(0.001), max = -log10(0.00000001),
value = -log10(0.00001), step=0.5)
),
mainPanel(align="center",
plotlyOutput("mymanhatten")
)
)),
#============================MANHATTEN GRID PLOTS=================================================#
tabPanel(
h4("Manhatten Grid Plots", style = "color: #800080;"),
sidebarLayout(
sidebarPanel(width = 3,
fileInput('file2', 'Upload CSV data file for Manhatten Plot:',
accept=c('text/csv','text/comma-separated-values,text/plain')),
checkboxInput('header', 'Data file has variable names as column headers.', TRUE),
radioButtons('sep', 'Data File separator value:',
c(Comma=',',
Semicolon=';',
Tab='\t')
),
uiOutput("gridOutput"),
sliderInput("pvalue", "Choose -log pValue:",
min = -log10(0.001), max = -log10(0.00000001),
value = -log10(0.00001), step=0.5),
sliderInput("ncol", "Number of columns for grid plot:",
min = 2, max =10,
value =5, step=1)
),
mainPanel(align="center",
tags$h2("", align = "center"),
plotOutput("mygrid", height=700))
)),
#============================PHENOTYPIC DATA VISUALIZATION========================================#
tabPanel(
h4("Phenotypic Data visulaization", style = "color: #800080;"),
sidebarLayout(
sidebarPanel(width = 3,
fileInput('file3', 'Upload CSV data file:',
accept=c('text/csv','text/comma-separated-values,text/plain')),
checkboxInput('header', 'Data file has variable names as column headers.', TRUE),
radioButtons('sep', 'Data File separator value:',
c(Comma=',',
Semicolon=';',
Tab='\t')),
uiOutput("DayOutput"),
selectInput("plot.type","Plot Type:",
c(Histogram = "histogram", Density="density", DensityAll="densityall", Boxplot = "boxplot", Trend = " trend"))
),
mainPanel(align="center",
tags$h2("", align = "center"),
plotlyOutput("plot")))
)
)
)
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1 copy.R')
library(shiny); runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1 copy.R')
source('~/Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R', echo=TRUE)
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
library(shiny); runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
library(shiny); runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft1.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft2_timepoint.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft2_timepoint.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft2_timepoint.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft2_timepoint.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Draft2_timepoint.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Final/ShinyAIM_Draft2.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Final/ShinyAIM_Draft2.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Final/ShinyAIM_Draft2.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Final/ShinyAIM_Draft2.R')
library("agricolae", lib.loc="/Library/Frameworks/R.framework/Versions/3.4/Resources/library")
remove.packages("agricolae")
if(!require(agricolae)){
install.packages("agricole")
library(agricolae)
}
if(!require(agricolae)){
install.packages("agricolae")
library(agricolae)
}
library(agricolae)
library(agricolae)
if(!require(agricolae)){
install.packages("agricolae")
library(agricolae)
}
if (!require('ggplot2'))
install.packages('ggplot2')
library('ggplot2')
if (!require('agricolae'))
install.packages('agricolae')
library('agrocolae')
if (!require('agricolae'))
install.packages('agricolae')
library('agricolae')
if (!require('agricolae'))
install.packages('agricolae')
library(shiny); runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Final/ShinyAIM_Draft2.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Final/ShinyAIM_Draft2.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Final/ShinyAIM_Draft2.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Final/ShinyAIM_Draft2.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Final/ShinyAIM_Draft2.R')
runApp('Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Final/ShinyAIM_Draft2.R')
setwd("~/Box/Postdoc/Dataanalysis/GWAS_Rice/Data/BLUES/BLUES_DR_WU")
rm(list=ls())
WU<-read.csv(file="WU_ALL.csv", header = TRUE)
View(WU)
library(dplyr)
WU1<-select(WU, NSFTV_ID,WU_R_1,WU_R_2,WU_R_3,WU_R_4,WU_R_5,WU_R_6,WU_R_7,WU_R_8,WU_R_9,WU_R_10,WU_R_11,WU_R_12,WU_R_13,
WU_R_14,WU_R_15,WU_R_16,WU_R_17,WU_R_18,WU_R_19,WU_R_20)
library(tidyr)
long_DF <- gather(WU1, Day, WU_R_1:WU_R_20)
WU2<-slice(long_DF, 357:7476)
colnames(WU2)
WU2<-rename(WU2, day="Day", Water_use="WU_R_1:WU_R_20")
str(WU2)
WU2$day<-as.factor(WU2$day)
WU2$Water_use<-as.numeric(WU2$Water_use)
levels(WU2$day)
View(WU2)
wu<-write.csv(WU2, file="wu_all.csv", header=TRUE)
wu<-write.csv(WU2, file="wu_all.csv")
setwd("~/Box/Postdoc/Dataanalysis/GWAS_Rice/Data/BLUES/BLUES_DR_WU")
write.csv(WU2, file="wu_all.csv")
write.table(WU2, file="wu_all.csv")
View(WU1)
View(WU2)
WU2<-as.data.frame(WU2)
View(WU2)
write.csv(WU2, file="WU2.csv")
runApp('~/Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Final/ShinyAIM_Draft2.R')
runApp('~/Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Final/ShinyAIM_Draft2.R')
runApp('~/Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Final/ShinyAIM_Draft2.R')
runApp('~/Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Final/ShinyAIM_Draft2.R')
runApp('~/Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Final/ShinyAIM_Draft2.R')
runApp('~/Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Final/test_seperateui')
runApp('~/Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Final/test_seperateui')
runApp('~/Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Final/test_seperateui')
runApp('~/Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Final/test_seperateui')
setwd("~/Box/Postdoc/Dataanalysis/Shiny_app/Shiny_New/ShinyAIM_Final/test_seperateui")
runApp()
runApp()
runApp()
runApp()
runApp()
