From 3a394fa21607f0610468e475276e96467087d162 Mon Sep 17 00:00:00 2001 From: Shaun Walbridge Date: Mon, 5 Oct 2015 18:15:13 -0400 Subject: [PATCH 1/2] 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 +} From fda9c9da3afa7b946265da1bb9861e06ae14c019 Mon Sep 17 00:00:00 2001 From: Edzer Pebesma Date: Thu, 12 Nov 2015 14:35:29 +0100 Subject: [PATCH 2/2] corrected typo --- scripts/clustering.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scripts/clustering.R b/scripts/clustering.R index a72fb57..2d175b3 100644 --- a/scripts/clustering.R +++ b/scripts/clustering.R @@ -103,7 +103,7 @@ tool_exec <- function(in_params, out_params) arc.write(out_sim, data=list(id=1:length(sim.xy$x)), sim.xy, list(type='Point', WKT=arc.shapeinfo(data_shp)$WKT)) } arc.progress_label("Done") - return(out_prams) + return(out_params) } simulation <- function(bestModel, n)