Clean plot.OutputsModel?

Are lines 821-822 and 834-835 useful? These variables seem not to be used (anymore?).

        SeqQuant <- seq(0, 1, by = 1/(length(DATA2)))
        Quant <- as.numeric(quantile(DATA2, SeqQuant, na.rm = TRUE))

        SeqQuant <- seq(0, 1, by = 1/(length(DATA2)))
        Quant <- as.numeric(quantile(DATA2, SeqQuant, na.rm = TRUE))