Hi, I am experiencing issues with the RQuantLib function

DiscountCurve

I am running the example from the documentation

params <- list(tradeDate=as.Date('2004-09-20'),
               settleDate=as.Date('2004-09-22'),
               dt=.25,
               interpWhat="discount",
               interpHow="loglinear")
setEvaluationDate(as.Date("2004-11-22"))

tsQuotes <- list(d1w = 0.0382,
                 d1m = 0.0372,
                 d3m = 0.0363,
                 d6m = 0.0353,
                 d9m = 0.0348,
                 d1y = 0.0345,
                 s2y = 0.037125,
                 s3y = 0.0398,
                 s5y = 0.0443,
                 s10y = 0.05165,
                 s15y = 0.055175)

times <- seq(0,10,.1)

# Loglinear interpolation of discount factors
curves <- DiscountCurve(params, tsQuotes, times)

As far as I can tell it correctly populates curves$discounts and
curves$zerorates BUT curves$table$zeroRates contains a fixed constant
value.

Actually curves$table is relevant for further valuations.
Pls help.
Krassimir

	[[alternative HTML version deleted]]

