R Shiny application that is helpful for education type-1 and type-2 errors