diff --git a/R/run.conStruct.R b/R/run.conStruct.R index c91c8eb..bfd1c2b 100644 --- a/R/run.conStruct.R +++ b/R/run.conStruct.R @@ -307,7 +307,7 @@ calc.covariance <- function(freqs){ (1/2) * outer( colMeans(x,na.rm=TRUE), 1-colMeans(x,na.rm=TRUE), "*" ) - (1/2) * outer(1-colMeans(x,na.rm=TRUE), colMeans(x,na.rm=TRUE), "*") + 1/4 diag(allelic.covariance) <- 0.25 - return(allelic.covariance) + return((allelic.covariance + t(allelic.covariance))/2) } pos.def.check <- function(obsCov){