diff --git a/README.md b/README.md
index 1e4ef5d..81484cf 100644
--- a/README.md
+++ b/README.md
@@ -76,7 +76,7 @@ ExpectedRep <- ExpectedRepresentation(
 print( ExpectedRep )
 
 ##################
-# Compute the amount of representation left on explained under 
+# Compute the amount of representation left unexplained under
 # the random sampling model for the same body and population
 ResidualRep <- SDRepresentation(
   PopShares = c(1/3, 2/3, 1/3),