[amelia] bug found in code (quite by accident!)

Hi I was looking at the source code to try to figure out the difference between splinetime and polytime, and I *think* I came across a bug. I found "polytime" inside of amcheck.r in a section dealing with "splinetime". Here is my diff patch: diff --git a/R/amcheck.r b/R/amcheck.r index 246fa75..981ef9b 100644 --- a/R/amcheck.r +++ b/R/amcheck.r @@ -472,7 +472,7 @@ amcheck <- function(x,m=5,p2s=1,frontend=FALSE,idvars=NULL,logs=NULL, if (!identical(splinetime,NULL)) { #Error code: 54 #Spline of time are longer than one integer - if (length(polytime) > 1) { + if (length(splinetime) > 1) { error.code<-54 error.mess<-paste("The spline of time setting is greater than one integer.") return(list(code=error.code,mess=error.mess)) @@ -497,7 +497,7 @@ amcheck <- function(x,m=5,p2s=1,frontend=FALSE,idvars=NULL,logs=NULL, error.mess<-paste("You have set splines of time without setting the time series variable.") return(list(code=error.code,mess=error.mess)) } - if (all(!intercs,identical(polytime,0))) { + if (all(!intercs,identical(splinetime,0))) { warning(paste("You've set the spline of time to zero with no interaction with \n", "the cross-sectional variable. This has no effect on the imputation.")) } Hope that is signal rather than noise. Regards, James Marca