# 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)
# prepare the slightly shifted second sample
fuzzyValuesShift <- fuzzyValues + 0.5
# seed PRNG
set.seed(1234)
# calculate the p-value using the classical (i.e. Efron's) bootstrap
TwoSampleCTest(fuzzyValues, fuzzyValuesShift)
# calculate the p-value using the VA resampling method
TwoSampleCTest(fuzzyValues, fuzzyValuesShift, resamplingMethod = "VAMethod")
Run the code above in your browser using DataLab