diff --git a/README.md b/README.md
index 2866268558f5efb3a5084c4ad5fe6dc610df5585..27feec697a386deba97ee30dfbd691834d967986 100644
--- a/README.md
+++ b/README.md
@@ -96,9 +96,9 @@ std_betaG <- standardizeBeta(GWAS$MAIN_EFFECT, GWAS$INT_EFFECT, GWAS$FREQ_A0, pa
 std_betaI <- standardizeBeta(GWAS$MAIN_EFFECT, GWAS$INT_EFFECT, GWAS$FREQ_A0, parsE[1], parsE[2], type = "I")
 
 # Estimation of the fraction of variance explained
-fracG    <- calculateVarFrac(std_betaG, std_betaI, C, parsY[2], sum(COHORT$PHENO_N), "G")
-fracI    <- calculateVarFrac(std_betaG, std_betaI, C, parsY[2], sum(COHORT$PHENO_N), "I")
-fracJ    <- calculateVarFrac(std_betaG, std_betaI, C, parsY[2], sum(COHORT$PHENO_N), "J")
+fracG    <- calculateVarExp(std_betaG, std_betaI, C, parsY[2], sum(COHORT$PHENO_N), "G")
+fracI    <- calculateVarExp(std_betaG, std_betaI, C, parsY[2], sum(COHORT$PHENO_N), "I")
+fracJ    <- calculateVarExp(std_betaG, std_betaI, C, parsY[2], sum(COHORT$PHENO_N), "J")
 ```
 
 Bug report / Help