# seed PRNG
set.seed(1234)
# generate an initial fuzzy sample
list1<-SimulateSample(20,originalPD="rnorm",parOriginalPD=list(mean=0,sd=1),
incrCorePD="rexp", parIncrCorePD=list(rate=2),
suppLeftPD="runif",parSuppLeftPD=list(min=0,max=0.6),
suppRightPD="runif", parSuppRightPD=list(min=0,max=0.6),
type="trapezoidal")
# calculate the mean using the standard epistemic bootstrap approach
EpistemicMean(list1$value,cutsNumber = 30)
# calculate the mean using the antithetic epistemic bootstrap approach
EpistemicMean(list1$value,cutsNumber = 30,bootstrapMethod="anti")
Run the code above in your browser using DataLab