tmax.dates <- as.PCICt(do.call(paste, t[,c("year",
                                           "days")]), format="%Y %j", cal="gregorian")
tmin.dates <- as.PCICt(do.call(paste, t[,c("year",
                                             "days")]), format="%Y %j", cal="gregorian")
prec.dates <- as.PCICt(do.call(paste, t[,c("year",
                                           "days")]), format="%Y %j", cal="gregorian")
## Load the data in.
ci <- climdexInput.raw(tmax=ntuobs[,1],
                       tmin=ntuobs[,1],
                       prec=ntuobs[,1],tmax.dates, tmin.dates, prec.dates, base.range=c(2000, 2010))
## Create a timeseries of monthly maximum 5-day consecutive

for (i in 1:100){
ci[,i] <- climdexInput.raw(tmax=ntuobs[,i],
                       tmin=ntuobs[,i],
                       prec=ntuobs[,i],tmax.dates, tmin.dates, prec.dates, base.range=c(2000, 2010))
} "

"Error in ci[, i] <- climdexInput.raw(tmax = changi[, i], tmin = changi[,  :
  object of type 'S4' is not subsettable"