diff --git a/R/taxPPro.R b/R/taxPPro.R
index 6fcca51..1d801e2 100644
--- a/R/taxPPro.R
+++ b/R/taxPPro.R
@@ -9,7 +9,7 @@
 #' @export
 #'
 filterData <- function(tbl) {
-    discrete_types <- c("binary", "multistate-intersection", "mltistate-union")
+    discrete_types <- c("binary", "multistate-intersection", "multistate-union")
     attr_type <- unique(tbl$Attribute_type)
     if (attr_type %in% discrete_types){
         output <- filterDataDiscrete(tbl)