# NOT RUN {
# First introduce left and right shape functions of RL fuzzy number
Left.fun = function(x) { (1-x^2)*(x>=0)}
Right.fun = function(x) { (exp(-x))*(x>=0)}
A = RL(40, 12, 10)
LRFN.plot(A, xlim=c(0,60), col=1)
## The function is currently defined as
function (m, m_l, m_r)
{
c(m, m_l, m_r, 1)
}
# }
Run the code above in your browser using DataLab