Added code for plotting graph of KD in shiny app.