Rm var

Signed-off-by: Johan Fitié <jfitie@gmail.com>

src/DBMDataRef/DBMDataRef.vb

@@ -687,7 +687,6 @@ Namespace Vitens.DynamicBandwidthMonitor
       Dim rawValues As AFValues = Nothing
       Dim result As DBMResult
       Dim iR, iD As Integer ' Iterators for raw values and DBM results.
-      Dim statistics As DBMStatisticsItem
 
       GetValues = New AFValues
 
@@ -964,9 +963,8 @@ Namespace Vitens.DynamicBandwidthMonitor
       ' reliable forecast can be made, check for and remove flatlines, and
       ' annotate the first value with model calibration metrics.
       If Attribute.Trait Is LimitTarget And results.Count > 2 Then
-        statistics = Statistics(results)
-        If statistics.Calibrated Then GetValues = Deflatline(GetValues, results, Me.Step)
-        Annotate(GetValues.Item(0), statistics.Brief)
+        If Statistics(results).Calibrated Then GetValues = Deflatline(GetValues, results, Me.Step)
+        Annotate(GetValues.Item(0), Statistics(results).Brief)
       End If
 
       ' Returns the collection of values for the attribute sorted in increasing