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
Show replies by date