Commit bc1aef32 authored by DURIF Ghislain's avatar DURIF Ghislain

fix issue with Xtest disappearance

parent 78955e0e
......@@ -204,6 +204,10 @@ if (ntest != 0)
}
}
else
{
sXtest <- NULL
}
rm(Xtrain)
rm(Xtest)
......@@ -260,7 +264,7 @@ if (is.null(hB)==TRUE)
#########################################################################
# only if Xtest != NULL
if (is.null(Xtest)==FALSE)
if (!is.null(sXtest))
{
newsXtest <- sXtest%*%BETA
ajEst <- rep(1,length=ntest)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment