R/Mean.R

Mean <-
function(F) {
# F: matrix n x 4 of trapezoidal fuzzy numbers

if (checkingTra(F)==1) {
    Mean=t(as.matrix(apply(F,2,mean)))
    return(Mean)
                       } 
                    }

Try the FuzzyStatTra package in your browser

Any scripts or data that you put into this service are public.

FuzzyStatTra documentation built on May 2, 2019, 10:59 a.m.