diff --git a/src/getDomainSubset.R b/src/getDomainSubset.R
index 993ad21..2477754 100644
--- a/src/getDomainSubset.R
+++ b/src/getDomainSubset.R
@@ -4,7 +4,7 @@
 
 library(igraph)
 
-# read in domain co-occurance table
+# read in domain co-occurrence table
 ds_domainTable <- read.table("working/domainComposition.tab", header=TRUE, stringsAsFactors=FALSE)
 ds_domainTable <- ds_domainTable[! duplicated(ds_domainTable[,1]),c(1,3)]
 
@@ -57,4 +57,4 @@ getUniqueDomainSet <- function(queryDomainSet){
     
     domainsNotInGraph <- queryDomainSet[! queryDomainSet %in% unlist(myComponents)]
     return(c(domainsNotInGraph, largestDomains))
-}
\ No newline at end of file
+}