value of a ts at some date
val=values(ts,dat)
* ts = a timeseries
* dat = a date string
* val = the value of a timeseries for the given date
load(GROCERDIR+'/data/bdhenderic.dat') // load Hendry and Ericsson database y=values(lm1,'1985q4')