diff --git a/R/explainST.R b/R/explainST.R
index 2a42b35..5826002 100644
--- a/R/explainST.R
+++ b/R/explainST.R
@@ -1,12 +1,12 @@
 
-#' Explain a subgroup level taxa from Soil Taxaonomy
+#' Explain a subgroup level taxa from Soil Taxonomy
 #'
 #' @param x a single subgroup, matching is exact and case insensitive
 #' @param format output format: 'text' | 'html'
 #' 
 #' @return a block of text, suitable for display in fixed-width font
 #' 
-#' @note This function currently accepts only subgroup taxa. There are plans to extend to arbitrary levels of the heirarchy.
+#' @note This function currently accepts only subgroup taxa. There are plans to extend to arbitrary levels of the hierarchy.
 #' 
 #' @export
 explainST <- function(x, format = c('text', 'html')) {