# prepare some fuzzy numbers (first type of the initial sample)
fuzzyValues <- matrix(c(0.25,0.5,1,1.25,0.75,1,1.5,2.2,-1,0,0,2),
ncol = 4,byrow = TRUE)
# generate the secondary sample using the w method
set.seed(12345)
WMethod(fuzzyValues)
WMethod(fuzzyValues,b=4)
# prepare some fuzzy numbers (second type of the initial sample)
fuzzyValuesInc <- matrix(c(0.25,0.5,1,0.25,0.25,1,1.5,0.7,1,0,0,2),
ncol = 4,byrow = TRUE)
# generate the secondary sample using the w method
WMethod(fuzzyValuesInc,increases = TRUE)
WMethod(fuzzyValuesInc,b=4,increases = TRUE)
Run the code above in your browser using DataLab