Add function `unfactor' in package `Rlib.R'