Article1SecondBatchDataset$FF1Fuzzy <- calibrate(FF1, method = "TFR")
Article1SecondBatchDataset$FF2Fuzzy <- calibrate(FF2, method = "TFR")
Article1SecondBatchDataset$FF3Fuzzy <- calibrate(FF3, method = "TFR")
Article1SecondBatchDataset$FF4Fuzzy <- calibrate(FF4, method = "TFR")
Article1SecondBatchDataset$ExtensionEffectFuzzy <- calibrate(ExtensionEffect, method = "TFR")