Issue #4 | Remove some instances of categorical forgotten | NB not al…

…l commands have been upgraded (Interactive)

R/FixedEffectModels.R

@@ -50,7 +50,7 @@ FixedEffect <- function(dt,
   fe_formula = fe
   for (fe_id in fe_split){
     fe_formula = gsub(fe_id, paste0("fe(", fe_id, ")"), fe_formula)
-  } 
+  }
   fe_formula = stringr::str_replace_all(fe_formula, "\\:", "\\&")
 
   # split all the clustering variables
@@ -121,27 +121,7 @@ FixedEffect <- function(dt,
   julia_assign("df_julia", dt_julia)
 
   # create pooled fe variables in the julia dataset: not necessary anymore
-  # for (iter in seq(1, length(fe_split))){
-  #   # convert to categorical if no fe with continuous interaction
-  #   if (!fe_interact | (classes[ name == fe_split[iter]]$colclass == "factor")){
-  #     if (verbose == T){ message("# converting ", fe_split[iter], " to categorical variable") }
-  #     # pool_cmd = paste0("df_julia[:", fe_split[iter], "]",
-  #     pool_cmd = paste0("df_julia[!, :", fe_split[iter], "]",
-  #                       " = categorical(df_julia[!, :",
-  #                       fe_split[iter], "]);")
-  #     # message(pool_cmd)
-  #     julia_command(pool_cmd)
-  #   }
-  # }
-  if ( stringr::str_length(paste(cluster_split, collapse="")) > 0 ){
-    for (iter in seq(1, length(cluster_split))){
-      if (verbose == T){ message("# converting ", fe_split[iter], " to categorical variable") }
-      pool_cmd = paste0("df_julia[!, :", cluster_split[iter], "]",
-                        " = categorical(df_julia[!, :",
-                        cluster_split[iter], "]);")
-      julia_command(pool_cmd)
-    }
-  }
+  # commented out!
 
   # Run the regression
   if (verbose == T){