Displaying 1 result from an estimated 1 matches for "dostop".
Did you mean:
destop
2005 Aug 24
0
Model forecasts with new factor levels - predict.warn
...sing(newdata) || is.null(newdata)) {
# Without newdata, issue warning and return
message("You do not have any new data.")
}
else {
xlev <- object$xlevels
nn<-names(xlev)
dnn<-length(nn)
message("there are ",dnn," factor names ")
dostop<-FALSE # Ensure the return value is defined
for (i in seq(along=nn)) {
message("Factor ",nn[i]," in estimation data")
ofac <- object[["model"]][[nn[i]]]
print(ofac) # diagnostic
oldlev<-levels(factor(ofac))
nfac <- newdata[[nn[i]]] # ?? no...