Extracting the numerical values of a xts object

To extract the numerical values of any xts, ts, or zoo object use:

as.numeric(Reg.curve)

Use coredata:

reg.curve.num <- coredata(Reg.curve)
# or, if you want a vector:
reg.curve.num <- drop(coredata(Reg.curve))