Create Advanced_raster_histogram.rsx

qgis · Nov 19, 2013 · fb08949 · fb08949
1 parent a0b5e94
commit fb08949
Showing 1 changed file with 20 additions and 0 deletions.
diff --git a/python/plugins/processing/r/scripts/Advanced_raster_histogram.rsx b/python/plugins/processing/r/scripts/Advanced_raster_histogram.rsx
@@ -0,0 +1,20 @@
+##Layer=raster
+##Raster processing=group
+##Dens_or_Hist=string Hist
+##showplots
+library(rpanel)
+library(rasterVis)
+str <- Dens_or_Hist
+if (str !='Dens' & str != 'Hist'){
+rp.messagebox('you must enter "Dens" or "Hist"', title = 'oops!')
+} else {
+if (nbands(Layer) == 1) {
+Layer <- as.matrix(Layer)
+Layer <- raster(Layer)
+}
+if (str == 'Dens') {
+densityplot(Layer)
+} else if (str == 'Hist') {
+histogram(Layer)
+}
+}