first release

R-ArcGIS · Jul 18, 2015 · b853fac · b853fac
1 parent 780345d
commit b853fac
Show file tree

Hide file tree

Showing 57 changed files with 6 additions and 258 deletions.
diff --git a/Bayesian regional random coefficients regression.mxd b/Bayesian regional random coefficients regression.mxd
diff --git a/...entation/Cluster Analysis of trees in Bavarian National Park using the MCLUST package.pdf b/...entation/Cluster Analysis of trees in Bavarian National Park using the MCLUST package.pdf
diff --git a/Documentation/Model Based Cluster Analysis.pdf b/Documentation/Model Based Cluster Analysis.pdf
diff --git a/Documentation/Semiparametric regression.pdf b/Documentation/Semiparametric regression.pdf
diff --git a/ModelBasedClustering.aprx b/ModelBasedClustering.aprx
diff --git a/ModelBasedClustering.mxd b/ModelBasedClustering.mxd
diff --git a/R Sample Tools.tbx b/R Sample Tools.tbx
diff --git a/README.txt b/README.txt
@@ -3,9 +3,6 @@ R Example Tools
 
 <[email protected]>
 
-Dimistry Pavlushko, Mark Janikas, Konstantin Krivoruchko, Shaun Walbridge and Steve Kopp, Esri Inc
-
-
 Sample ArcMap MXD and ArcGIS Pro Project
 
 Add .tbx files

diff --git a/RToolbox.tbx b/RToolbox.tbx
diff --git a/data.gdb/a00000001.TablesByName.atx b/data.gdb/a00000001.TablesByName.atx
diff --git a/data.gdb/a00000001.freelist b/data.gdb/a00000001.freelist
diff --git a/data.gdb/a00000001.gdbtable b/data.gdb/a00000001.gdbtable
diff --git a/data.gdb/a00000001.gdbtablx b/data.gdb/a00000001.gdbtablx
diff --git a/data.gdb/a00000004.CatItemsByPhysicalName.atx b/data.gdb/a00000004.CatItemsByPhysicalName.atx
diff --git a/data.gdb/a00000004.CatItemsByType.atx b/data.gdb/a00000004.CatItemsByType.atx
diff --git a/data.gdb/a00000004.FDO_UUID.atx b/data.gdb/a00000004.FDO_UUID.atx
diff --git a/data.gdb/a00000004.freelist b/data.gdb/a00000004.freelist
diff --git a/data.gdb/a00000004.gdbtable b/data.gdb/a00000004.gdbtable
diff --git a/data.gdb/a00000004.gdbtablx b/data.gdb/a00000004.gdbtablx
diff --git a/data.gdb/a00000004.spx b/data.gdb/a00000004.spx
diff --git a/data.gdb/a00000006.CatRelsByDestinationID.atx b/data.gdb/a00000006.CatRelsByDestinationID.atx
diff --git a/data.gdb/a00000006.CatRelsByOriginID.atx b/data.gdb/a00000006.CatRelsByOriginID.atx
diff --git a/data.gdb/a00000006.CatRelsByType.atx b/data.gdb/a00000006.CatRelsByType.atx
diff --git a/data.gdb/a00000006.FDO_UUID.atx b/data.gdb/a00000006.FDO_UUID.atx
diff --git a/data.gdb/a00000006.freelist b/data.gdb/a00000006.freelist
diff --git a/data.gdb/a00000006.gdbtable b/data.gdb/a00000006.gdbtable
diff --git a/data.gdb/a00000006.gdbtablx b/data.gdb/a00000006.gdbtablx
diff --git a/data.gdb/a0000000b.gdbtable b/data.gdb/a0000000b.gdbtable
diff --git a/data.gdb/a0000000b.gdbtablx b/data.gdb/a0000000b.gdbtablx
diff --git a/data.gdb/a0000000b.spx b/data.gdb/a0000000b.spx
diff --git a/data.gdb/a0000000c.gdbindexes b/data.gdb/a0000000c.gdbindexes
diff --git a/data.gdb/a0000000c.gdbtable b/data.gdb/a0000000c.gdbtable
diff --git a/data.gdb/a0000000c.spx b/data.gdb/a0000000c.spx
diff --git a/data.gdb/a0000000d.freelist b/data.gdb/a0000000d.freelist
diff --git a/data.gdb/a0000000d.gdbindexes b/data.gdb/a0000000d.gdbindexes
diff --git a/data.gdb/a0000000d.gdbtable b/data.gdb/a0000000d.gdbtable
diff --git a/data.gdb/a0000000d.gdbtablx b/data.gdb/a0000000d.gdbtablx
diff --git a/data.gdb/a0000000d.spx b/data.gdb/a0000000d.spx
diff --git a/data.gdb/a0000000e.gdbindexes b/data.gdb/a0000000e.gdbindexes
diff --git a/data.gdb/a0000000e.gdbtable b/data.gdb/a0000000e.gdbtable
diff --git a/data.gdb/a0000000e.gdbtablx b/data.gdb/a0000000e.gdbtablx
diff --git a/data.gdb/a0000000e.spx b/data.gdb/a0000000e.spx
diff --git a/data.gdb/a00000010.freelist b/data.gdb/a00000010.freelist
diff --git a/data.gdb/a00000010.gdbindexes b/data.gdb/a00000010.gdbindexes
diff --git a/data.gdb/a00000010.gdbtable b/data.gdb/a00000010.gdbtable
diff --git a/data.gdb/a00000010.gdbtablx b/data.gdb/a00000010.gdbtablx
diff --git a/data.gdb/a00000010.spx b/data.gdb/a00000010.spx
diff --git a/data.gdb/a0000000b.gdbindexes → data.gdb/a00000011.gdbindexes b/data.gdb/a0000000b.gdbindexes → data.gdb/a00000011.gdbindexes
diff --git a/data.gdb/a00000011.gdbtable b/data.gdb/a00000011.gdbtable
diff --git a/data.gdb/a0000000c.gdbtablx → data.gdb/a00000011.gdbtablx b/data.gdb/a0000000c.gdbtablx → data.gdb/a00000011.gdbtablx
diff --git a/data.gdb/a00000011.spx b/data.gdb/a00000011.spx
diff --git a/data.gdb/timestamps b/data.gdb/timestamps
diff --git a/gambia.mxd b/gambia.mxd
diff --git a/scripts/brcm.R b/scripts/brcm.R
diff --git a/scripts/clustering.R b/scripts/clustering.R
@@ -1,7 +1,6 @@
 # case study using mclust package
 tool_exec <- function(in_params, out_prams)
 {
-  #message(getOption("repos"))
   if (!requireNamespace("sp", quietly = TRUE))
     install.packages("sp")
   if (!requireNamespace("mclust", quietly = TRUE))
@@ -10,22 +9,24 @@ tool_exec <- function(in_params, out_prams)
   require(sp)
 
   source_dataset = in_params[[1]]
-  nclust = NULL #in_params[[2]]
+  #nclust = in_params[[2]]
   out_table = out_prams[[1]]
   out_ellipses = out_prams[[2]]
   out_dens = out_prams[[3]]
   out_sim = out_prams[[4]]
-
   ### read data
   arc.progress_label("Loading Dataset")
-  data <- arc.select(arc.open(source_dataset))
+  d <- arc.open(source_dataset)
+  # read only OID field
+  data <- arc.select(d, names(d@fields[d@fields == "OID"]))
   data_shp <- arc.shape(data)
 
   data.xy <- cbind(data_shp$x, data_shp$y) # or data.frame(x=data_shp$x, y=data_shp$y)
 
   #########
   arc.progress_label("Bayesian Information Criterion for Model-Based Clustering...")
-  patternBIC <- mclustBIC(data.xy, G = nclust)
+  patternBIC <- mclustBIC(data.xy) # G = nclust)
+
   patternModel <- summary(patternBIC, data.xy)
   print(patternModel)
 

diff --git a/scripts/semi_par_regression.R b/scripts/semi_par_regression.R
diff --git a/symbology/DensityPoints_Symbology.lyr b/symbology/DensityPoints_Symbology.lyr