Credit Risk Analytics

You want to normalize 0 to 10000 to a new range between -10000 to +10000 Formula max' = 10000 min' = -10000 max = 10000 min = 0 a = (max' - min')/(max - min) b = (max' - (a * max)) or (min' - (a * min)) newvalue = a * {0 .....10000} + b

This post is an extension to the post where we now plot multiple lines and each line is draggable. Highcharter library returning data to page with draggable points Thanks to the SO post by jbkunst. server.R library(shiny) library(highcharter) library(data.table) myData <- data.table(x=2012:2016, data.frame(myYax = c(3900,  4200,  5700,  8500, 11900), myZax=c(3900,  4200,  500,  800, 1000))) shinyServer(function(input, output) {     #Make a copy of the data table. It will be run only once when use opens the application   m_data <- myData     output$text1 <- renderText({     paste("You have selected ",input$xaxis_name)   })     output$text2 <- renderText({     paste("You have selected ",input$yaxis_name)   })     output$view <- renderTable({               ...