Added a shiny app for visualization