missing value where TRUE/FALSE needed

[agcgit]

Hi
I tried to use the k2 function on my dataset.

getting the error

Error in if (candidate.score > P_new) { :
missing value where TRUE/FALSE needed

my data are all binary (1,0)

[agcgit]

This error seem to be Coming from the f function with the factorial operation
In R, factorial(large number>171) =inf