"missing value where TRUE/FALSE needed" when testing transmission likelihood matrix during normal usage

spatialEpisim.foundation/R/SVEIRD.BayesianDataAssimilation.R

Lines 1005 to 1011 in aed36ec

    
           ## FIXME: "missing value where TRUE/FALSE needed". The error only occurs 
        
           ## after many iterations of the loop and data assimilation have occurred. 
        
           ## Why it becomes invalid, without logical values produced, I'm unsure for 
        
           ## now. This will need to be resolved after other work is committed. 
        
           uniqueInfectionLikelihoods <- length(unique(as.vector(transmissionLikelihoods))) 
        
           if (all(countInfected > 0, !(uniqueInfectionLikelihoods > 1))) 
        
             stop("The number of unique likelihoods of transmission is not more than one, indicating an issue generating the transmissionLikelihoods matrix.")

	## FIXME: "missing value where TRUE/FALSE needed". The error only occurs
	## after many iterations of the loop and data assimilation have occurred.
	## Why it becomes invalid, without logical values produced, I'm unsure for
	## now. This will need to be resolved after other work is committed.
	uniqueInfectionLikelihoods <- length(unique(as.vector(transmissionLikelihoods)))
	if (all(countInfected > 0, !(uniqueInfectionLikelihoods > 1)))
	stop("The number of unique likelihoods of transmission is not more than one, indicating an issue generating the transmissionLikelihoods matrix.")