[Soiltexture-commits] r60 - / pkg/soiltexture pkg/soiltexture/R pkg/soiltexture/inst/doc www
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Sat Nov 12 11:20:00 CET 2011
Author: jmoeys
Date: 2011-11-12 11:20:00 +0100 (Sat, 12 Nov 2011)
New Revision: 60
Modified:
SoilTexture_changelog.txt
pkg/soiltexture/DESCRIPTION
pkg/soiltexture/R/soiltexture.R
pkg/soiltexture/inst/doc/soiltexture_vignette.Rnw
soiltexture_compile.R
www/index.html
Log:
Added German SEA texture triangle (+ minor changes)
Modified: SoilTexture_changelog.txt
===================================================================
--- SoilTexture_changelog.txt 2011-11-09 13:23:29 UTC (rev 59)
+++ SoilTexture_changelog.txt 2011-11-12 10:20:00 UTC (rev 60)
@@ -3,6 +3,9 @@
Julien MOEYS
-----------------------------------------------------------------------------------------
+20111112 Added the German (GDR) texture triangle for forest soils:
+ "Standortserkundungsanweisung SEA 1974 (DE)"
+
20111109 New attempt to fix problems while loading the Polish texture triangle
under Mac/Darwin and freeBSD.
Modified: pkg/soiltexture/DESCRIPTION
===================================================================
--- pkg/soiltexture/DESCRIPTION 2011-11-09 13:23:29 UTC (rev 59)
+++ pkg/soiltexture/DESCRIPTION 2011-11-12 10:20:00 UTC (rev 60)
@@ -5,7 +5,7 @@
Author: Julien MOEYS <jules_m78-soiltexture at yahoo.fr>, contributions from Wei Shangguan.
Maintainer: Julien MOEYS <jules_m78-soiltexture at yahoo.fr>
Depends: R (>= 2.4.1), sp, MASS
-Suggests: drc
+Suggests: drc, plotrix
Description: "The Soil Texture Wizard" is a set of R functions designed to produce
texture triangles (also called texture plots, texture diagrams, texture ternary plots),
classify and transform soil textures data. These functions virtually allows to plot any
@@ -13,10 +13,9 @@
right-angled triangles, etc.). This set of function is expected to be useful to people
using soil textures data from different soil texture classification or different particle
size systems. Several texture triangles are predefined: USDA; FAO (which is also the
- triangle for the soil map of Europe); Aisne (France); GEPPA (France); German triangle
- (Bodenkundliche Kartieranleitung 1994); Soil Survey of England and Wales (UK); Australian
- triangle; Belgian triangle; Canadian triangle; ISSS triangle; Romanian triangle; Polish
- triangle. The Soil Texture Wizard is initially develloped from the functions 'soil.texture()'
- from the package 'plotrix' by Jim Lemon et al.
+ triangle for the soil map of Europe); Aisne (France); GEPPA (France); German triangles
+ "Bodenkundliche Kartieranleitung 1994" and "Standortserkundungsanweisung SEA 1974"; Soil
+ Survey of England and Wales; Australian triangle; Belgian triangle; Canadian triangle;
+ ISSS triangle; Romanian triangle; Polish triangle.
License: AGPL (>=3)
URL: http://soiltexture.r-forge.r-project.org/
Modified: pkg/soiltexture/R/soiltexture.R
===================================================================
--- pkg/soiltexture/R/soiltexture.R 2011-11-09 13:23:29 UTC (rev 59)
+++ pkg/soiltexture/R/soiltexture.R 2011-11-12 10:20:00 UTC (rev 60)
@@ -1145,6 +1145,60 @@
unit.tx = quote(bold('%')),
#
text.sum = 100
+ ), #
+ #
+ DE.SEA74.TT = list( # GDR Forest soils TRIANGLE PARAMETERS :
+ #
+ main = "Standortserkundungsanweisung SEA 1974 (DE)",
+ #
+ # The list below specify the CSS coordinates of the different POINTS
+ # that are used to draw soil texture classes. One points can be
+ # used by several classes. The clay definition of points 08, 09, 10 closely follows the
+ # triangle, plotted in SEA 1974, conforms to the GDR standard (TGL 24300-05:1985-06), but
+ # is 1 Percent larger than the actual German texture triangle in DE.BK94.TT :
+ # P01 P02 P03 P04 P05 P06 P07 P08 P09 P10 P11 P12 P13
+ # P14 P15 P16 P17 P18 P19 P20 P21 P22 P23 P24 P25
+ "tt.points" = data.frame(
+ "CLAY" = c( 1.000, 0.450, 0.450, 0.300, 0.300, 0.300, 0.300, 0.180, 0.180, 0.180, 0.150, 0.120, 0.050,
+ 0.000, 0.000, 0.000, 0.000, 0.050, 0.100, 0.025, 0.050, 0.080, 0.080, 0.000, 0.000),
+ "SILT" = c( 0.000, 0.550, 0.000, 0.700, 0.550, 0.150, 0.000, 0.820, 0.550, 0.150, 0.000, 0.150, 0.550,
+ 0.550, 0.200, 0.100, 0.000, 0.000, 0.000, 0.075, 0.150, 0.800, 0.920, 1.000, 0.800),
+ "SAND" = c( 0.000, 0.000, 0.550, 0.000, 0.150, 0.550, 0.700, 0.000, 0.270, 0.670, 0.850, 0.730, 0.400,
+ 0.450, 0.800, 0.900, 1.000, 0.950, 0.900, 0.900, 0.800, 0.120, 0.000, 0.000, 0.200)
+ ), #
+ #
+ # Abreviations; Names of the texture cl; Points marking the class limits (points specified above)
+ "tt.polygons" = list(
+ "L" = list( "name" = "Lehm", "points" = c(10, 06, 05, 09 ) ),
+ "stL" = list( "name" = "sandig-toniger Lehm", "points" = c(11, 07, 06, 10, 12 ) ),
+ "sL" = list( "name" = "sandiger Lehm", "points" = c(12, 10, 09, 13 ) ),
+ "S" = list( "name" = "Sand", "points" = c(17, 18, 20, 16 ) ),
+ "alS" = list( "name" = "anlehmiger Sand", "points" = c(18, 19, 21, 15, 16, 20 ) ),
+ "lS" = list( "name" = "lehmiger Sand", "points" = c(19, 11, 12, 13, 14, 15, 21 ) ),
+ "T" = list( "name" = "Ton", "points" = c(03, 01, 02 ) ),
+ "uT" = list( "name" = "schluffiger Ton", "points" = c(05, 02, 04 ) ),
+ "lT" = list( "name" = "lehmiger Ton", "points" = c(03, 02, 05, 06 ) ),
+ "sT" = list( "name" = "sandiger Ton", "points" = c(07, 03, 06 ) ),
+ "U" = list( "name" = "Schluff", "points" = c(25, 22, 23, 24 ) ),
+ "UL" = list( "name" = "Schlufflehm", "points" = c(09, 05, 04, 08 ) ),
+ "lU" = list( "name" = "lehmiger Schluff", "points" = c(14, 13, 09, 08, 23, 22, 25 ) )
+ #
+ ), #
+ #
+ # Triangle specific parameters for triangle geometry / appearance
+ # See general parameters above for detailed description of them
+ blr.clock = c(F,T,NA),
+ tlr.an = c(45,90,45),
+ #
+ blr.tx = c("CLAY","SILT","SAND"),
+ #
+ base.css.ps.lim = c(0,2,63,2000),
+ tri.css.ps.lim = c(0,2,63,2000),
+ #
+ unit.ps = quote(bold(mu) * bold('m')),
+ unit.tx = quote(bold('%')),
+ #
+ text.sum = 100
) #
#
# +-------------------------------------------------------------------------+
Modified: pkg/soiltexture/inst/doc/soiltexture_vignette.Rnw
===================================================================
--- pkg/soiltexture/inst/doc/soiltexture_vignette.Rnw 2011-11-09 13:23:29 UTC (rev 59)
+++ pkg/soiltexture/inst/doc/soiltexture_vignette.Rnw 2011-11-12 10:20:00 UTC (rev 60)
@@ -825,8 +825,10 @@
The reference used to digitize this triangle is the Soil Survey
Manual (Soil Survey Staff 1993\cite{USDA1993}).
+\clearpage % otherwise the table may 'eats' next triangle
+
% +~~~~~~~~~~~~~~~~~~~~~~~~~~~~+
\subsection{The FAO soil texture classification (also known as
'European Soil map', or 'HYPRES')}
@@ -872,8 +874,10 @@
(CanSIS) also provides some details on this triangle
(\cite{CANSIS2009}).
+\clearpage % otherwise the table may 'eats' next triangle
+
% +~~~~~~~~~~~~~~~~~~~~~~~~~~~~+
\subsection{The French 'Aisne' soil texture classification}
@@ -910,8 +914,10 @@
Chambre d'Agriculture de l'Aisne' (en: texture triangle of the
Aisne extension service).
+\clearpage % otherwise the table may 'eats' next triangle
+
% +~~~~~~~~~~~~~~~~~~~~~~~~~~~~+
\subsection{The French 'GEPPA' soil texture classification}
@@ -947,8 +953,10 @@
Probl\`emes de P\'edologie Appliqu\'ee' (en: Group for the study of
applied pedology problems / questions).
+\clearpage % otherwise the table may 'eats' next triangle
+
% +~~~~~~~~~~~~~~~~~~~~~~~~~~~~+
\subsection{The German Bodenartendiagramm (B.K. 1994) soil
texture classification}
@@ -992,6 +1000,63 @@
% +~~~~~~~~~~~~~~~~~~~~~~~~~~~~+
+\subsection{The German 'Standortserkundungsanweisung' (SEA 1974) %
+ soil texture classification for forest soils}
+
+To display a German 'Standortserkundungsanweisung' (SEA 1974)
+texture triangle for forest soils, type:
+
+
+
+<<echo=TRUE,fig=TRUE,include=TRUE>>=
+TT.plot( class.sys = "DE.SEA74.TT" )
+@
+
+
+
+<<echo=FALSE,results=hide,quiet=TRUE>>=
+plLim <- TT.get("DE.SEA74.TT")[["base.css.ps.lim"]][3]
+@
+
+The SEA 1974 soil texture classification has been built
+considering a silt - sand limit of
+\Sexpr{plLim}$\mu$meters.\\
+
+
+See the table for soil texture classes symbols:
+
+
+<<echo=FALSE,results=tex>>=
+tex.tbl <- TT.classes.tbl( class.sys = "DE.SEA74.TT" )
+xtable(
+ x = tex.tbl[,-3], #
+ caption = "Texture classes of the German SEA 1974 system / triangle",
+ label = NULL
+) #
+@
+
+
+Many thanks to Rainer Petzold (Staatsbetrieb Sachsenforst) for
+providing the code of the SEA 1974 triangle.
+
+
+The original isosceles version of the triangle can be obtained by typing:
+
+
+<<echo=TRUE,fig=TRUE,include=TRUE>>=
+TT.plot(
+ class.sys = "DE.SEA74.TT",
+ blr.clock = rep(T,3),
+ tlr.an = rep(60,3),
+ blr.tx = c("SAND","CLAY","SILT"),
+) #
+@
+
+\clearpage % otherwise the table may 'eats' next triangle
+
+
+
+% +~~~~~~~~~~~~~~~~~~~~~~~~~~~~+
\subsection{UK Soil Survey of England and Wales texture
classification}
@@ -1023,8 +1088,10 @@
Development Service -- Technical Advice Unit 2006\cite{DEFRA2006}
(Technical Advice Note 52 -- Soil texture).
+\clearpage % otherwise the table may 'eats' next triangle
+
% +~~~~~~~~~~~~~~~~~~~~~~~~~~~~+
\subsection{The Australian soil texture classification}
@@ -1061,8 +1128,10 @@
(brochure 'Soil Texture-Laboratory Method' from soilquality.org.au
\footnote{texttt{http://soilquality.org.au}}).\\
+\clearpage % otherwise the table may 'eats' next triangle
+
% +~~~~~~~~~~~~~~~~~~~~~~~~~~~~+
\subsection{The Belgian soil texture classification}
@@ -1098,8 +1167,10 @@
This texture triangle has been built after images from Defourny
et al.\cite{DEFOURNY2009} and Van Bossuyt\cite{BOSSUYT2009}.\\
+\clearpage % otherwise the table may 'eats' next triangle
+
% +~~~~~~~~~~~~~~~~~~~~~~~~~~~~+
\subsection{The Canadian soil texture classification}
@@ -1160,8 +1231,10 @@
and the boundaries have been checked with those given on the same
web-page \cite{CANSIS2010}.\\
+\clearpage % otherwise the table may 'eats' next triangle
+
% +~~~~~~~~~~~~~~~~~~~~~~~~~~~~+
\subsection{The ISSS soil texture classification}
@@ -1196,12 +1269,14 @@
@
-Many thanks to Wei Shangguan (PhD, School of geography, Beijing
+Many thanks to Wei Shangguan (School of geography, Beijing
normal university) for providing the code of the ISSS triangle
(using an article from Verheye and Ameryckx 1984\cite{VERHEYE1984PEDO}).
+\clearpage % otherwise the table may 'eats' next triangle
+
% +~~~~~~~~~~~~~~~~~~~~~~~~~~~~+
\subsection{The Romanian soil texture classification}
@@ -1248,8 +1323,10 @@
) #
@
+\clearpage % otherwise the table may 'eats' next triangle
+
% +~~~~~~~~~~~~~~~~~~~~~~~~~~~~+
\subsection{The Polish soil texture classification}
@@ -1257,31 +1334,43 @@
for non-alluvial soils), type:
+% <<echo=TRUE,fig=TRUE,include=TRUE>>=
+% if( Sys.info()["sysname"] != "Mac" ){
+% TT.plot( class.sys = "PL.TT" )
+% } #
+% @
+
+
<<echo=TRUE,fig=TRUE,include=TRUE>>=
-if( Sys.info()["sysname"] != "Mac" ){
- TT.plot( class.sys = "PL.TT" )
-} #
+TT.plot( class.sys = "PL.TT" )
@
-NB: \textit{With Mac computers, and due to encoding issues, the Polish
-triangle is not included with the default triangles, and the graphs
-above and table below will thus not be displayed}.\\
+NB: \textit{Due to encoding issues, the Polish triangle
+with be displayed with original polish character under Windows
+and Linux systems only. For other platforms (Mac, freeBSD)
+only latin character are used}.\\
+% <<echo=FALSE,results=hide,quiet=TRUE>>=
+% if( Sys.info()["sysname"] != "Mac" ){
+% if( Sys.info()["sysname"] != "Mac" ){
+% plLim <- TT.get("PL.TT")[["base.css.ps.lim"]][3]
+% }else{
+% plLim <- "..."
+% } #
+% } #
+% @
+
+
+
<<echo=FALSE,results=hide,quiet=TRUE>>=
-if( Sys.info()["sysname"] != "Mac" ){
- if( Sys.info()["sysname"] != "Mac" ){
- plLim <- TT.get("PL.TT")[["base.css.ps.lim"]][3]
- }else{
- plLim <- "..."
- } #
-} #
+plLim <- TT.get("PL.TT")[["base.css.ps.lim"]][3]
@
-The Romanian soil texture classification has been built
+The Polish soil texture classification has been built
considering a silt - sand limit of
\Sexpr{plLim}$\mu$meters.\\
@@ -1289,23 +1378,36 @@
See the table for soil texture classes symbols:
+% <<echo=FALSE,results=tex>>=
+% if( Sys.info()["sysname"] != "Mac" ){
+% tex.tbl <- TT.classes.tbl( class.sys = "PL.TT" )
+% xtable(
+% x = tex.tbl[,-3], #
+% caption = "Texture classes of the Polish system / triangle",
+% label = NULL
+% ) #
+% } #
+% @
+
+
<<echo=FALSE,results=tex>>=
-if( Sys.info()["sysname"] != "Mac" ){
- tex.tbl <- TT.classes.tbl( class.sys = "PL.TT" )
- xtable(
- x = tex.tbl[,-3], #
- caption = "Texture classes of the Romanian system / triangle",
- label = NULL
- ) #
-} #
+tex.tbl <- TT.classes.tbl( class.sys = "PL.TT" )
+xtable(
+ x = tex.tbl[,-3], #
+ caption = "Texture classes of the Polish system / triangle",
+ label = NULL
+) #
@
+
Many thanks to Wiktor Zelazny for providing the code of the
Polish triangle (and the Polish language translation).
+\clearpage % otherwise the table may 'eats' next triangle
+
% +~~~~~~~~~~~~~~~~~~~~~~~~~~~~+
\subsection{Soil texture triangle with a texture classes color
gradient}
Modified: soiltexture_compile.R
===================================================================
--- soiltexture_compile.R 2011-11-09 13:23:29 UTC (rev 59)
+++ soiltexture_compile.R 2011-11-12 10:20:00 UTC (rev 60)
@@ -2,9 +2,9 @@
pkg.dir <- "C:/_R_PACKAGES/soiltexture/pkg"
# pkg.dir <- "/home/jules/_WORK/R_PACKAGES/soiltexture/pkg"
pkg.name <- "soiltexture"
-pkg.version <- "1.2.5"
+pkg.version <- "1.2.6"
pkg.depends <- c("sp","MASS")
-pkg.suggests <- "drc"
+pkg.suggests <- c("drc","plotrix")
RVersion <- "R (>= 2.4.1)"
# r.path <- "C:/Program Files/_SCIENCE/R_PROJECT_2-4-1/bin"
r.path <- "" # Use curent R version
Modified: www/index.html
===================================================================
--- www/index.html 2011-11-09 13:23:29 UTC (rev 59)
+++ www/index.html 2011-11-12 10:20:00 UTC (rev 60)
@@ -63,17 +63,18 @@
try first:<br>
<br>
<span style="font-family: monospace;"></span><code>
-install.packages("soiltexture", repos = "http://R-Forge.R-project.org")<br>
+install.packages("soiltexture")<br>
</code><br class="">
If it doesn't work, or if you don't have the latest release of R, try
instead:<br class="">
-<code><br>
+<code><br></code><code>
+install.packages("soiltexture", repos = "http://R-Forge.R-project.org")<br><br></code>or:<br><code><br>
</code><span style="font-family: monospace;"></span><code>
install.packages("soiltexture", repos = "http://R-Forge.R-project.org",
type = "source")<br>
-<br>
+<br></code>
If it doesn't work, try to load the sources instead (this method does
-not install the help page):<br>
+not install the help page):<code><br>
</code><span style="font-family: monospace;"><br>
</span><span style="font-family: monospace;"> source(
"<a href="https://r-forge.r-project.org/scm/viewvc.php/*checkout*/pkg/soiltexture/R/soiltexture.R?root=soiltexture" target="_blank">https://r-forge.r-project.org/scm/viewvc.php/*checkout*/pkg/soiltexture/R/soiltexture.R?root=soiltexture</a>"
@@ -87,7 +88,7 @@
<ul>
<li><strong class="spip">Create</strong> clear, readable <strong class="spip">soil texture triangles graphics</strong> (also called <a href="http://en.wikipedia.org/wiki/Ternary_plot" class="spip_out">ternary
plots</a> or soil texture diagrams), with proper axis labels, either
-"neutral", or with one of the <strong class="spip">8 soil texture
+"neutral", or with one of the <span style="font-weight: bold;">13</span><strong class="spip"> soil texture
classification systems actually pre-defined</strong>:
</li>
</ul>
@@ -100,26 +101,24 @@
</li>
<li>GEPPA (France); <br>
</li>
-<li>German triangle (Bodenkundliche Kartieranleitung 1994); <br>
-</li>
+<li>German triangle (Bodenkundliche Kartieranleitung 1994); <br></li><li>German triangle (Standortserkundungsanweisung SEA 1974) for forest soils (<font color="#ff3333">new 2011/10/11</font>);<br></li>
<li>Soil Survey of England and Wales (UK); <br>
</li>
<li>Australian triangle; <br>
</li>
-<li>Belgian triangle (<font color="#ff3333">new 2009/10/15</font>). <br>
+<li>Belgian triangle (<font color="#ff3333">new 2009/10/15</font>); <br>
</li>
-<li>Canadian triangle (<font color="#ff3333">new 2010/04/16</font>). <br>
+<li>Canadian triangle (<font color="#ff3333">new 2010/04/16</font>); <br>
</li>
-<li>ISSS triangle (<font color="#ff3333">new 2010/05/13</font>).</li>
+<li>ISSS triangle (<font color="#ff3333">new 2010/05/13</font>); <br></li>
<li>Romanian texture triangle (<span style="color: red;">new
-2010-06-09</span>).<br>
-</li>
+2010-06-09</span>);</li><li>Polish triangle (Systematyka gleb Polski, 1989, for non-alluvial soils).</li>
</ul>
<p style="margin-left: 40px;" class="spip">Many thanks to Wei
-Shangguan, PhD student at the School of geography of Beijing normal
-university for providing the code of ISSS the triangle, and to Rosca
+Shangguan, from the School of geography of Beijing normal
+university for providing the code of ISSS the triangle, to Rosca
Bogdan (from Romanian Academy, Iasi Branch, Geography team) for
-providing the code for the Romanian triangle.<br>
+providing the code for the Romanian triangle, to Wiktor Zelazny for providing the code for the Polish triangle (and the polish language translation of triangle labels) and to Rainer Petzold (Staatsbetrieb Sachsenforst) for providing the code of the German SEA 1974 triangle.<br>
</p>
<ul>
<li><strong class="spip">Implement new texture triangles or create
More information about the Soiltexture-commits
mailing list