R/calculate_intensity.R: Splitted and debugged the plotting functions

Signed-off-by: Charles Joly Beauparlant <Charles.Joly-Beauparlant@crchul.ulaval.ca>