# adjusted.weight.MI: Calculates the adjusted weight for a given main-item of a... In FuzzySTs: Fuzzy Statistical Tools

## Description

Calculates the adjusted weight for a given main-item of a linguistic questionnaire

## Usage

 `1` ```adjusted.weight.MI(x, i, j, b_j, b_jk, SI) ```

## Arguments

 `x` the data set to evaluate. `i` an observation index. `j` a main-item index. `b_j` an array referring to the initial weights given to each main-item of the considered main-item. This array will be afterwards re-calculated. `b_jk` a matrix of length(b_j) rows and max(SI) columns expressing the initial weights of each sub-item of a given main-item. `SI` an array representing the total numbers of sub-items per main-item.

## Value

A numerical value giving the readjusted weight of the main-item j for the observation i.

## Examples

 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44``` ```data <- matrix(c(3,4,2,3,3,2,4,3,3,4,3,4,4,2,5,3,4,4,3,3,3,4,4,3, 3,3,4,3,3,3,3,4,4,3,5,3,4,3,3,3), ncol = 4) data <- as.data.frame(data) MI <- 2 SI1 <- 2 SI2 <- 2 SI <- c(SI1,SI2) b_j <- c(1/2,1/2) b_jk <- matrix(c(0.5,0.5,0.5,0.5),nrow=2) PA11 <- c(1,2,3,4,5) PA12 <- c(1,2,3,4,5) PA21 <- c(1,2,3,4,5) PA22 <- c(1,2,3,4,5) # ------------------ MF111 <- TrapezoidalFuzzyNumber(0,2,2,7) MF112 <- TrapezoidalFuzzyNumber(2,7,7,15) MF113 <- TrapezoidalFuzzyNumber(7,15,15,23) MF114 <- TrapezoidalFuzzyNumber(15,23,23,28) MF115 <- TrapezoidalFuzzyNumber(23,28,28,30) MF11 <- GFUZZ(data, 1, 1, PA11, spec="Identical", breakpoints = 100) # ------------------ MF121 <- TrapezoidalFuzzyNumber(0,2,2,7) MF122 <- TrapezoidalFuzzyNumber(2,7,7,15) MF123 <- TrapezoidalFuzzyNumber(7,15,15,23) MF124 <- TrapezoidalFuzzyNumber(15,23,23,28) MF125 <- TrapezoidalFuzzyNumber(23,28,28,30) MF12 <- GFUZZ(data, 1, 2, PA12, spec="Identical", breakpoints = 100) # ------------------ MF211 <- TrapezoidalFuzzyNumber(0,2,2,7) MF212 <- TrapezoidalFuzzyNumber(2,7,7,15) MF213 <- TrapezoidalFuzzyNumber(7,15,15,23) MF214 <- TrapezoidalFuzzyNumber(15,23,23,28) MF215 <- TrapezoidalFuzzyNumber(23,28,28,30) MF21 <- GFUZZ(data, 2, 1, PA21, spec="Identical", breakpoints = 100) # ------------------ MF221 <- TrapezoidalFuzzyNumber(0,2,2,7) MF222 <- TrapezoidalFuzzyNumber(2,7,7,15) MF223 <- TrapezoidalFuzzyNumber(7,15,15,23) MF224 <- TrapezoidalFuzzyNumber(15,23,23,28) MF225 <- TrapezoidalFuzzyNumber(23,28,28,30) MF22 <- GFUZZ(data, 2, 2, PA22, spec="Identical", breakpoints = 100) # ------------------ range <- matrix(c(0,0,0,0,28,28,28,28), ncol=2) adjusted.weight.MI(data, 9, 1, b_j, b_jk, SI) ```

FuzzySTs documentation built on Nov. 23, 2020, 5:11 p.m.