VAFMethod.md
In FuzzyResampling: Resampling Methods for Triangular and Trapezoidal Fuzzy Numbers

Function returns correct values

Code
  set.seed(1234567)
  VAFMethod(fuzzyValuesA)
Output
             [,1]      [,2]     [,3]     [,4]
  [1,]  0.1608301 0.5445850 1.044585 1.160830
  [2,]  0.2826235 0.8586883 1.858688 2.482623
  [3,]  0.8606929 0.9446535 1.444654 2.310693
  [4,] -1.0000000 0.0000000 0.000000 2.000000

Code
  set.seed(1234567)
  VAFMethod(fuzzyValuesA, b = 5)
Output
             [,1]      [,2]      [,3]     [,4]
  [1,]  0.2566487 0.4966757 0.9966757 1.256649
  [2,]  0.5959630 0.7020185 1.7020185 2.795963
  [3,]  0.3701343 1.1899329 1.6899329 1.820134
  [4,] -1.0000000 0.0000000 0.0000000 2.000000
  [5,]  0.2693842 0.8653079 1.8653079 2.469384

Code
  set.seed(1234567)
  VAFMethod(fuzzyValuesIncA, increases = TRUE)
Output
             [,1]      [,2]     [,3]      [,4]
  [1,] 0.38375485 0.5445850 1.044585 0.1162451
  [2,] 0.57606477 0.8586883 1.858688 0.6239352
  [3,] 0.08396062 0.9446535 1.444654 0.8660394
  [4,] 1.00000000 0.0000000 0.000000 2.0000000

Code
  set.seed(1234567)
  VAFMethod(fuzzyValuesIncA, b = 5, increases = TRUE)
Output
            [,1]      [,2]      [,3]      [,4]
  [1,] 0.2400270 0.4966757 0.9966757 0.2599730
  [2,] 0.1060555 0.7020185 1.7020185 1.0939445
  [3,] 0.8197986 1.1899329 1.6899329 0.1302014
  [4,] 1.0000000 0.0000000 0.0000000 2.0000000
  [5,] 0.5959237 0.8653079 1.8653079 0.6040763