# Dvorak <1> "almost all" quantifier
q <- quantifier('almost.all')
a <- c(0.9, 1, 1, 0.2, 1)
q(x=a, w=1)
# Dvorak <1,1> "almost all" quantifier (w set to 1)
a <- c(0.9, 1, 1, 0.2, 1)
b <- c(0.2, 1, 0, 0.5, 0.8)
q <- quantifier('almost.all')
q(x=lukas.residuum(a, b), w=1)
# Murinová <1,1> "almost all" quantifier (note w set to a)
a <- c(0.9, 1, 1, 0.2, 1)
b <- c(0.2, 1, 0, 0.5, 0.8)
q <- quantifier('almost.all')
q(x=lukas.residuum(a, b), w=a)
# Murinová <1,1> "some" quantifier
a <- c(0.9, 1, 1, 0.2, 1)
b <- c(0.2, 1, 0, 0.5, 0.8)
q <- quantifier('some')
q(x=plukas.tnorm(a, b), w=a)
Run the code above in your browser using DataLab