Hi, let say, I have following execution:

 > library(zoo)
> library(quantmod)
> PriceDat <- as.zoo(get(getSymbols("APL"))[,4])
> is.numeric(PriceDat)
[1] TRUE
> PriceDat <- zoo(data.frame(Price=coredata(PriceDat), Others="APL"),
index(PriceDat))
> is.numeric(PriceDat$Price)
[1] FALSE
>


Here surpricingly, once I create a data-frame I see that "Price"
observations become non-numeric. Can someone please explain this, why it is
so? Shouldn't I expect it will remain Numeric?

Thanks,

	[[alternative HTML version deleted]]

