x <- factor(c(11, 22, 33, 99))
as.numeric(x)
# 1 2 3 4 # NOT typically the desired.expected output
f.as.numeric(x)
# 11 22 33 99 # Typically desired output
# Or...
as.numeric(as.character(x)) # A tad unsightly
Run the code above in your browser using DataLab