fix: logical in ModelNegativeADTnorm.r

[maxkarlsson]

In ModelNegativeADRnorm there is a logical that will always return FALSE, and the corresponding if statement (dealing with the case when a model could not be fit for some markers) will thus never trigger. This PR fixes this.

The issue comes from the use of all.equal, which will return TRUE if all elements across two vectors are equal, and a string if they are not. The isFALSE function would thus return FALSE whether all.equal returns TRUE or a string.

Here is an example:

mu1 <- 1:10
adt_log <- matrix(1:100, nrow = 10, ncol = 10)
rownames(adt_log) <- paste0("protein", 1:10)

# Lengths are equal, expected to return FALSE
isFALSE(length(mu1) == length(rownames(adt_log)))
# [1] FALSE

isFALSE(all.equal(length(mu1), length(rownames(adt_log))))        
# [1] FALSE



# Lengths are NOT equal, expected to return TRUE
mu1 <- 1:9

isFALSE(length(mu1) == length(rownames(adt_log)))
# [1] TRUE

isFALSE(all.equal(length(mu1), length(rownames(adt_log))))
# [1] FALSE

[MattPM]

@maxkarlsson discovered an isolated unnecessary call to all.equal for this conditional related to the ModelNegativeADTnorm function. The proposed code corrects the issue. Approved. thank you!
-Matt