anchor.diff:          ///    regression approximates the real data points. An R^2 of 1.0 indicates that the
           ///    regression perfectly fits the data.
       *)
  -    let calulcateDeterminationFromValue (actual:seq<float>) (expected:seq<float>) = 
  +    let calculateDeterminationFromValue (actual:seq<float>) (expected:seq<float>) = 
           let meanY = Seq.mean actual
           let SSE,SST =
               Seq.zip actual expected
  
positive.code:                         ) (0.,0.)
          ((SST - SSE) / SST)
   
  
      /// Calculates Akaike information criterion (AIC) which is a measure of the relative quality of a regression model for a given set of data    
      // ! Formula used for regression only (because number of model parameter are missing)
  
negative.code:         let TTest = Testing.TestStatistics.createTTest statistic (sumOfSquares.Count - 2.)
          TTest
  
      let calculateDetermination (sumOfSquares:SumOfSquares) =
          sumOfSquares.Regression / sumOfSquares.Total
          
  
  