x<-c("numbers with exponent: 2^2, -2.5^2, (-3)^2, 6.25^.5, .2^-2 text.",
"numbers with percentage: 2%, 15 %, 25 percent.",
"numbers with fractions: 1/100, -2/5, -7/.1",
"numbers with e: 10e+2, -20e3, .2E-2, 2e4",
"numbers as products: 100*2, -20*.1, 2*10^3",
"written numbers: twenty-two, one hundred fourty five, fifteen percent",
"mix: one hundred ten is not 1/10 is not 10^2 nor 10%/5")
text2num(x)
Run the code above in your browser using DataLab