d <- lcut(0:1000/1000, name='x')
plot(d)
# Additional arguments are passed to the ts.plot method
# Here thick lines represent atomic linguistic expressions,
# i.e. ``small'', ``medium'', and ``big''.
plot(d,
ylab='membership degree',
xlab='values',
gpars=list(lwd=c(rep(1, 3), 5, rep(1, 5), 5, rep(1, 7), 5, rep(1,4))))
Run the code above in your browser using DataLab