From c33f1de6f0b5341f66b4759b5b0c0bc6db430466 Mon Sep 17 00:00:00 2001
From: Mohammed Aladeemy <mohammed.aladeemy@gmail.com>
Date: Wed, 24 Jan 2018 15:11:23 -0500
Subject: [PATCH] Update kprototypes.R

"anycat" in line 122 should be replaced with "anyfact".
---
 R/kprototypes.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/kprototypes.R b/R/kprototypes.R
index dbc4940..cc7c8b2 100644
--- a/R/kprototypes.R
+++ b/R/kprototypes.R
@@ -119,7 +119,7 @@ kproto.default <- function(x, k, lambda = NULL, iter.max = 100, nstart=1, keep.d
       } 
       if (vcat == 0){
         warning("All categorical variables have zero variance.")
-        anycat <- FALSE
+        anyfact <- FALSE
       } 
       if(anynum & anyfact) {lambda <- vnum/vcat; cat("Estimated lambda:", lambda, "\n\n")}  
       else lambda <- 1