R code for shiny server t test application