From 3a394fa21607f0610468e475276e96467087d162 Mon Sep 17 00:00:00 2001
From: Shaun Walbridge <shaun.walbridge@gmail.com>
Date: Mon, 5 Oct 2015 18:15:13 -0400
Subject: [PATCH] Fix typo for consistency with other examples

---
 scripts/clustering.R | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/scripts/clustering.R b/scripts/clustering.R
index b5b5472..a72fb57 100644
--- a/scripts/clustering.R
+++ b/scripts/clustering.R
@@ -1,5 +1,5 @@
 # case study using mclust package
-tool_exec <- function(in_params, out_prams)
+tool_exec <- function(in_params, out_params)
 {
   if (!requireNamespace("sp", quietly = TRUE))
     install.packages("sp")
@@ -10,10 +10,10 @@ tool_exec <- function(in_params, out_prams)
 
   source_dataset = in_params[[1]]
   #nclust = in_params[[2]]
-  out_table = out_prams[[1]]
-  out_ellipses = out_prams[[2]]
-  out_dens = out_prams[[3]]
-  out_sim = out_prams[[4]]
+  out_table = out_params[[1]]
+  out_ellipses = out_params[[2]]
+  out_dens = out_params[[3]]
+  out_sim = out_params[[4]]
   ### read data
   arc.progress_label("Loading Dataset")
   d <- arc.open(source_dataset)
@@ -155,4 +155,4 @@ foo <- function()
       list("d:\\Data\\R-staff\\samps\\data.gdb\\spruce_trees", NULL),
       list(NULL, NULL, NULL, "in_memory\\sim")
    )
-}
\ No newline at end of file
+}