[Soiltexture-commits] r24 - / pkg pkg/soiltexture pkg/soiltexture/R pkg/soiltexture/man

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Thu Jun 10 14:14:46 CEST 2010


Author: jmoeys
Date: 2010-06-10 14:14:41 +0200 (Thu, 10 Jun 2010)
New Revision: 24

Added:
   pkg/soiltexture/man/TT.polygon.area.Rd
   pkg/soiltexture/man/TT.polygon.centroids.Rd
Modified:
   SoilTexture_changelog.txt
   pkg/soiltexture.Rcheck.zip
   pkg/soiltexture/DESCRIPTION
   pkg/soiltexture/R/soiltexture.R
   pkg/soiltexture/man/TT.baseplot.Rd
   pkg/soiltexture/man/TT.classes.Rd
   pkg/soiltexture/man/TT.classes.tbl.Rd
   pkg/soiltexture/man/TT.dataset.Rd
   pkg/soiltexture/man/TT.plot.Rd
   pkg/soiltexture/man/TT.vertices.plot.Rd
   pkg/soiltexture/man/TT.vertices.tbl.Rd
   pkg/soiltexture/man/soiltexture-package.Rd
   pkg/soiltexture_1.0.tar.gz
   pkg/soiltexture_1.0.zip
Log:


Modified: SoilTexture_changelog.txt
===================================================================
--- SoilTexture_changelog.txt	2010-06-07 14:48:15 UTC (rev 23)
+++ SoilTexture_changelog.txt	2010-06-10 12:14:41 UTC (rev 24)
@@ -3,6 +3,10 @@
 Julien MOEYS
 -----------------------------------------------------------------------------------------
 
+20100610    New function TT.polygon.centroids() used for a smater calculation 
+            of the texture class centroid for better placement of the texture 
+            classes labels (used by TT.classes(), itself used by TT.plot()).
+
 20100607    Added the Romanian texture triangle to the list of pre-defined  texture 
             triangles, and the Romanian language to the list of possible languages 
             for the texture triangle title and axis labels. many thanks to 

Modified: pkg/soiltexture/DESCRIPTION
===================================================================
--- pkg/soiltexture/DESCRIPTION	2010-06-07 14:48:15 UTC (rev 23)
+++ pkg/soiltexture/DESCRIPTION	2010-06-10 12:14:41 UTC (rev 24)
@@ -1,6 +1,6 @@
 Package: soiltexture
 Version: 1.0
-Date: 2010-06-07
+Date: 2010-06-10
 Title: Functions for soil texture plot, classification and transformation
 Author: Julien MOEYS <jules_m78-soiltexture at yahoo.fr> 
 Maintainer: Julien MOEYS <jules_m78-soiltexture at yahoo.fr> 

Modified: pkg/soiltexture/R/soiltexture.R
===================================================================
--- pkg/soiltexture/R/soiltexture.R	2010-06-07 14:48:15 UTC (rev 23)
+++ pkg/soiltexture/R/soiltexture.R	2010-06-10 12:14:41 UTC (rev 24)
@@ -2962,7 +2962,11 @@
 
 
 
-TT.baseplot <- function( 
+TT.baseplot <- function(# Internal. Create an empty plot scene for a texture triangle.
+### Create an empty plot where a texture triangle can be drawn with 
+### other secondary functions (frame, axis, ...). Also return the 
+### 'geo' parameters needed by these secondary functions.
+
     geo             = NULL, 
     class.sys       = "none",  
     # 
@@ -4035,11 +4039,13 @@
 
 
 
-# +~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~+
-# | FUNCTION: TT.dataset()              |
-# +~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~+
-# [ TT.dataset(): genetate a virtual Clay Silt Sand + Z dataset, with correlations 
-TT.dataset <- function( 
+
+
+
+TT.dataset <- function(# Genetates a virtual cross correlated clay silt sand + Z dataset. 
+### Genetates a virtual cross correlated clay silt sand + Z dataset, 
+### where Z is a virtual 4th variable correlated to the texture.
+
     n, 
     seed.val    = NULL, 
     css.names   = NULL, 
@@ -4092,7 +4098,15 @@
 
 
 
-TT.classes.tbl    <- function( 
+
+
+TT.classes.tbl <- function(# Returns the table of classes of a texture classification system.
+### Returns the table of classes of a texture classification system. 
+### Returns the classes abbreviations, names and the vertices numbers 
+### that defines each class. Use TT.vertices.tbl() to retrieve the 
+### clay silt sand coordinates of the triangle classes vertices. 
+###  See also TT.vertices.plot().
+
     class.sys       = "FAO50.TT", 
     collapse        = ", " 
 ){  #
@@ -4121,7 +4135,15 @@
 
 
 
-TT.vertices.tbl    <- function( 
+
+
+
+TT.vertices.tbl <- function(# Returns the table of vertices of a texture classification system.
+### Returns the table of vertices of a texture classification system. 
+### Returns the clay silt sand coordinates of each vertices. Use 
+### TT.classes.tbl() to know the vertices that bounds each texture 
+### class. See also TT.vertices.plot().
+
     class.sys       = "FAO50.TT"  
 ){  #
     TT.data <- TT.get( class.sys ) 
@@ -4142,7 +4164,15 @@
 
 
 
-TT.vertices.plot    <- function( 
+
+
+
+TT.vertices.plot <- function(# Plot the vertices of a texture classification system. 
+### Plot the vertices of a texture classification system, on top 
+### of an already drawn texture triangle plot. Also plot the 
+### vertices numbers. See TT.vertices.tbl() and TT.classes.tbl() 
+### for a non graphic, tabular equivalent of the plot.
+
     geo, 
     class.sys   = "FAO50.TT", 
     fg          = NULL, 
@@ -4196,7 +4226,95 @@
 
 
 
-TT.classes  <- function(
+
+
+
+TT.polygon.area <- function(# Determines the area of 1 polygon (in x-y coordinates). 
+### Determines the area of 1 non-intersecting polygon (in x-y 
+### coordinates). Used by TT.polygon.centroids(). pol.x[1]:pol.y[1] 
+### is supposed different from pol.x[n]:pol.y[n] (i.e. the polygon 
+### is NOT closed). 
+### After "http://local.wasp.uwa.edu.au/~pbourke/geometry/polyarea/
+### Calculating The Area And Centroid Of A Polygon. Written by 
+### Paul Bourke, July 1988".
+
+ pol.x,
+### Vector of numericals. X coordinates of each vertices of the 
+### polygon.
+
+ pol.y
+### Vector of numericals. Y coordinates of each vertices of the 
+### polygon.
+
+){  # Index range:
+    i <- 1:length(pol.x)
+    #
+    # Close the polygon
+    pol.x <- c(pol.x,pol.x[1]) 
+    pol.y <- c(pol.y,pol.y[1]) 
+    #
+    # Calculate the area
+    A <- 0.5 * sum( pol.x[i] * pol.y[i+1] - pol.x[i+1] * pol.y[i] )
+    #
+    return( A ) 
+    ### Returns a single numerical: area of the polygon.
+}   #
+
+
+
+
+
+
+TT.polygon.centroids <- function(# Determines the centroid of 1 polygon (in x-y coordinates). 
+### Determines the centroid of 1 non-intersecting polygon (in x-y 
+### coordinates). Used to determine the centroid of each texture 
+### class in the texture triangle onces its clay silt sand 
+### coordinates have been converted to x-y coordinates. pol.x[1]:pol.y[1] 
+### is supposed different from pol.x[n]:pol.y[n] (i.e. the polygon 
+### is NOT closed). 
+### After "http://local.wasp.uwa.edu.au/~pbourke/geometry/polyarea/ 
+### Calculating The Area And Centroid Of A Polygon. Written by 
+### Paul Bourke, July 1988".
+
+ pol.x,
+### Vector of numericals. X coordinates of each vertices of the 
+### polygon.
+
+ pol.y
+### Vector of numericals. Y coordinates of each vertices of the 
+### polygon.
+
+){  #
+    i <- 1:length(pol.x)
+    #
+    # Calculate the area:
+    A <- TT.polygon.area( 
+        pol.x = pol.x, 
+        pol.y = pol.y  
+    )   #
+    #
+    # Close the polygon
+    pol.x <- c(pol.x,pol.x[1]) 
+    pol.y <- c(pol.y,pol.y[1]) 
+    #
+    # Calculate the area
+    Cx <- (1/(6*A)) * sum( (pol.x[i]+pol.x[i+1]) * (pol.x[i]*pol.y[i+1] - pol.x[i+1]*pol.y[i]) )  
+    Cy <- (1/(6*A)) * sum( (pol.y[i]+pol.y[i+1]) * (pol.x[i]*pol.y[i+1] - pol.x[i+1]*pol.y[i]) )  
+    #
+    return( c("x"=Cx,"y"=Cy) ) 
+    ### Returns a vector of 2 numericals: x and y coordinates of 
+    ### the polygon's centroid. Vector items are names "x" and "y". 
+}   #
+
+
+
+
+
+TT.classes  <- function(# Plot the texture classes ploygons in a texture triangle plot.
+### Plot the texture classes ploygons in an existing texture 
+### triangle plot. Draw the polygons and the labels inside each 
+### polygons.
+
     geo, 
     class.sys, 
     tri.css.ps.lim  = NULL, 
@@ -4222,7 +4340,12 @@
     font.lab        = NULL, 
     family.op       = NULL, 
     lwd.axis        = NULL, 
-    col.axis        = NULL  # NB: not the color of the polygon line. par("col.axis")
+    col.axis        = NULL, # NB: not the color of the polygon line. par("col.axis")
+ new.centroid=TRUE  
+### Single logical. If TRUE (default) the new method (Paul Bourke) 
+### is used to calculate the centroid. If FALSE the centroid is 
+### taken as the mean x and y coordinates of the vertices.
+
 ){  # +~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~+ 
     # Retrieve classes-system (texture triangle) parameters:
     TT.data     <- TT.get(class.sys) 
@@ -4280,19 +4403,37 @@
     poly.nm <- names( TT.data$"tt.polygons" )
     #
     # Class centroid computation: used for polygon labels position and background colors
-    cent.xy <- do.call( 
-        "cbind", 
-        lapply( 
-            X   = poly.nm, 
-            FUN = function(X){ 
-                sel.vec <- (TT.data$"tt.polygons"[[ X ]])$"points"
-                cent.x  <- mean( xy.new[ sel.vec , "xpos" ] ) 
-                cent.y  <- mean( xy.new[ sel.vec , "ypos" ] ) 
-                return(c("x"=cent.x,"y"=cent.y))
-            }   #
+    if( new.centroid ) 
+    {   #
+        cent.xy <- do.call(# Changed the 2010/06/10
+            "cbind", 
+            lapply( 
+                X   = poly.nm, 
+                FUN = function(X){ 
+                    sel.vec <- (TT.data$"tt.polygons"[[ X ]])$"points"
+                    #
+                    TT.polygon.centroids(
+                        pol.x = xy.new[ sel.vec , "xpos" ], 
+                        pol.y = xy.new[ sel.vec , "ypos" ] 
+                    )   #
+                }   #
+            )   #
         )   #
-    )   #
-    colnames(cent.xy) <- poly.nm
+    }else{ 
+        cent.xy <- do.call( 
+            "cbind", 
+            lapply( 
+                X   = poly.nm, 
+                FUN = function(X){ 
+                    sel.vec <- (TT.data$"tt.polygons"[[ X ]])$"points"
+                    cent.x  <- mean( xy.new[ sel.vec , "xpos" ] ) 
+                    cent.y  <- mean( xy.new[ sel.vec , "ypos" ] ) 
+                    return(c("x"=cent.x,"y"=cent.y))
+                }   #
+            )   #
+        )   #
+    }   #
+    colnames(cent.xy) <- poly.nm 
     #
     # Set the "night colors" parameter
     night.cols  <-  TT.col2hsv(bg)[,"v"] < 0.5 
@@ -4414,10 +4555,9 @@
 
 
 
-# +~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~+
-# | FUNCTION: TT.plot()                 |
-# +~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~+
-# [ TT.plot(): Produce a ternary plot, with full customisation and soil-texture tools.
+
+
+
 TT.plot <- function(# Plot soil texture triangles / diagrams.
 ### Plot a soil texture triangle (also called soil texture 
 ### diagrams, or soil texture ternary plots), with or without 
@@ -4910,11 +5050,16 @@
 
 # Graph margins:
 
- new.mar=NULL
+ new.mar=NULL,
 ### Vector of 4 numericals. Margin sizes of the plot. Default is 
 ### the same as par("mar"). See par("mar") for more details. Use 
 ### this at your own risks!
 
+ new.centroid=TRUE  
+### Single logical. If TRUE (default) the new method (Paul Bourke) 
+### is used to calculate the centroid. If FALSE the centroid is 
+### taken as the mean x and y coordinates of the vertices.
+
 ){  #
     if( is.null( class.sys ) ){ class.sys <- TT.get("class.sys") } 
     #
@@ -5078,7 +5223,8 @@
             text.sum        = text.sum, 
             base.css.ps.lim = base.css.ps.lim, 
             blr.tx          = blr.tx, 
-            blr.clock       = blr.clock 
+            blr.clock       = blr.clock, 
+            new.centroid    = new.centroid  
         )   #
     }   #
     #
@@ -5133,7 +5279,8 @@
             text.sum        = text.sum, 
             base.css.ps.lim = base.css.ps.lim, 
             blr.tx          = blr.tx, 
-            blr.clock       = blr.clock 
+            blr.clock       = blr.clock, 
+            new.centroid    = new.centroid  
         )   #
     }   #
     #

Modified: pkg/soiltexture/man/TT.baseplot.Rd
===================================================================
--- pkg/soiltexture/man/TT.baseplot.Rd	2010-06-07 14:48:15 UTC (rev 23)
+++ pkg/soiltexture/man/TT.baseplot.Rd	2010-06-10 12:14:41 UTC (rev 24)
@@ -1,7 +1,9 @@
 \name{TT.baseplot}
 \alias{TT.baseplot}
-\title{TT baseplot}
-
+\title{Internal. Create an empty plot scene for a texture triangle.}
+\description{Create an empty plot where a texture triangle can be drawn with 
+other secondary functions (frame, axis, ...). Also return the 
+'geo' parameters needed by these secondary functions.}
 \usage{
 TT.baseplot(geo = NULL, class.sys = "none", blr.clock = NULL, tlr.an = NULL, blr.tx = NULL, text.sum = NULL, base.css.ps.lim = NULL, tri.sum.tst = NULL, tri.pos.tst = NULL, text.tol = NULL, unit.ps = NULL, unit.tx = NULL, b.lim = NULL, l.lim = NULL, main = NULL, new.mar = NULL, bg = NULL, fg = NULL, col = NULL, cex.main = NULL, lang = NULL)
 }

Modified: pkg/soiltexture/man/TT.classes.Rd
===================================================================
--- pkg/soiltexture/man/TT.classes.Rd	2010-06-07 14:48:15 UTC (rev 23)
+++ pkg/soiltexture/man/TT.classes.Rd	2010-06-10 12:14:41 UTC (rev 24)
@@ -1,9 +1,11 @@
 \name{TT.classes}
 \alias{TT.classes}
-\title{TT classes}
-
+\title{Plot the texture classes ploygons in a texture triangle plot.}
+\description{Plot the texture classes ploygons in an existing texture 
+triangle plot. Draw the polygons and the labels inside each 
+polygons.}
 \usage{
-TT.classes(geo, class.sys, tri.css.ps.lim = NULL, css.transf = NULL, text.transf.fun = NULL, trsf.add.opt1 = NULL, trsf.add.opt2 = NULL, text.tol = NULL, text.sum = NULL, base.css.ps.lim = NULL, blr.tx = NULL, blr.clock = NULL, tri.sum.tst = NULL, tri.pos.tst = NULL, bg = NULL, class.lab.col = NULL, class.p.bg.col = NULL, class.p.bg.hue = NULL, class.line.col = NULL, class.lty = NULL, class.lab.show = NULL, cex.lab = NULL, font.lab = NULL, family.op = NULL, lwd.axis = NULL, col.axis = NULL)
+TT.classes(geo, class.sys, tri.css.ps.lim = NULL, css.transf = NULL, text.transf.fun = NULL, trsf.add.opt1 = NULL, trsf.add.opt2 = NULL, text.tol = NULL, text.sum = NULL, base.css.ps.lim = NULL, blr.tx = NULL, blr.clock = NULL, tri.sum.tst = NULL, tri.pos.tst = NULL, bg = NULL, class.lab.col = NULL, class.p.bg.col = NULL, class.p.bg.hue = NULL, class.line.col = NULL, class.lty = NULL, class.lab.show = NULL, cex.lab = NULL, font.lab = NULL, family.op = NULL, lwd.axis = NULL, col.axis = NULL, new.centroid = TRUE)
 }
 \arguments{
   \item{geo}{
@@ -58,6 +60,9 @@
 }
   \item{col.axis}{
 }
+  \item{new.centroid}{Single logical. If TRUE (default) the new method (Paul Bourke) 
+is used to calculate the centroid. If FALSE the centroid is 
+taken as the mean x and y coordinates of the vertices.}
 }
 
 

Modified: pkg/soiltexture/man/TT.classes.tbl.Rd
===================================================================
--- pkg/soiltexture/man/TT.classes.tbl.Rd	2010-06-07 14:48:15 UTC (rev 23)
+++ pkg/soiltexture/man/TT.classes.tbl.Rd	2010-06-10 12:14:41 UTC (rev 24)
@@ -1,7 +1,11 @@
 \name{TT.classes.tbl}
 \alias{TT.classes.tbl}
-\title{TT classes tbl}
-
+\title{Returns the table of classes of a texture classification system.}
+\description{Returns the table of classes of a texture classification system. 
+Returns the classes abbreviations, names and the vertices numbers 
+that defines each class. Use TT.vertices.tbl() to retrieve the 
+clay silt sand coordinates of the triangle classes vertices. 
+ See also TT.vertices.plot().}
 \usage{
 TT.classes.tbl(class.sys = "FAO50.TT", collapse = ", ")
 }

Modified: pkg/soiltexture/man/TT.dataset.Rd
===================================================================
--- pkg/soiltexture/man/TT.dataset.Rd	2010-06-07 14:48:15 UTC (rev 23)
+++ pkg/soiltexture/man/TT.dataset.Rd	2010-06-10 12:14:41 UTC (rev 24)
@@ -1,7 +1,8 @@
 \name{TT.dataset}
 \alias{TT.dataset}
-\title{TT dataset}
-
+\title{Genetates a virtual cross correlated clay silt sand + Z dataset. }
+\description{Genetates a virtual cross correlated clay silt sand + Z dataset, 
+where Z is a virtual 4th variable correlated to the texture.}
 \usage{
 TT.dataset(n, seed.val = NULL, css.names = NULL, text.sum = NULL)
 }

Modified: pkg/soiltexture/man/TT.plot.Rd
===================================================================
--- pkg/soiltexture/man/TT.plot.Rd	2010-06-07 14:48:15 UTC (rev 23)
+++ pkg/soiltexture/man/TT.plot.Rd	2010-06-10 12:14:41 UTC (rev 24)
@@ -42,7 +42,7 @@
 For instance to change the default value of 'class.sys', type 
 TT.set( "class.sys" = "USDA.TT" ).}
 \usage{
-TT.plot(geo = NULL, tri.data = NULL, add = FALSE, css.names = NULL, z.name = NULL, main = NULL, blr.tx = NULL, css.lab = NULL, text.sum = NULL, base.css.ps.lim = NULL, tri.css.ps.lim = NULL, dat.css.ps.lim = NULL, css.transf = NULL, text.transf.fun = NULL, trsf.add.opt1 = NULL, trsf.add.opt2 = NULL, unit.ps = NULL, unit.tx = NULL, blr.clock = NULL, tlr.an = NULL, font = NULL, font.axis = NULL, font.lab = NULL, font.main = NULL, bg = NULL, fg = NULL, col = NULL, col.axis = NULL, col.lab = NULL, col.main = NULL, cex = NULL, cex.axis = NULL, cex.lab = NULL, cex.main = NULL, lwd = NULL, lwd.axis = NULL, lwd.lab = NULL, family.op = NULL, frame.bg.col = NULL, at = NULL, grid.show = NULL, grid.col = NULL, grid.lty = NULL, class.sys = NULL, class.lab.show = NULL, class.lab.col = NULL, class.line.col = NULL, class.p.bg.col = NULL, class.p.bg.hue = NULL, arrows.show = NULL, arrows.lty = NULL, points.type = NULL, pch = NULL, z.type = NULL, z.col.hue = NULL, z.cex.range = NULL, z.pch = NULL, text.tol = NULL, tri.sum.tst = NULL, tri.pos.tst = NULL, b.lim = NULL, l.lim = NULL, lang = NULL, new.mar = NULL)
+TT.plot(geo = NULL, tri.data = NULL, add = FALSE, css.names = NULL, z.name = NULL, main = NULL, blr.tx = NULL, css.lab = NULL, text.sum = NULL, base.css.ps.lim = NULL, tri.css.ps.lim = NULL, dat.css.ps.lim = NULL, css.transf = NULL, text.transf.fun = NULL, trsf.add.opt1 = NULL, trsf.add.opt2 = NULL, unit.ps = NULL, unit.tx = NULL, blr.clock = NULL, tlr.an = NULL, font = NULL, font.axis = NULL, font.lab = NULL, font.main = NULL, bg = NULL, fg = NULL, col = NULL, col.axis = NULL, col.lab = NULL, col.main = NULL, cex = NULL, cex.axis = NULL, cex.lab = NULL, cex.main = NULL, lwd = NULL, lwd.axis = NULL, lwd.lab = NULL, family.op = NULL, frame.bg.col = NULL, at = NULL, grid.show = NULL, grid.col = NULL, grid.lty = NULL, class.sys = NULL, class.lab.show = NULL, class.lab.col = NULL, class.line.col = NULL, class.p.bg.col = NULL, class.p.bg.hue = NULL, arrows.show = NULL, arrows.lty = NULL, points.type = NULL, pch = NULL, z.type = NULL, z.col.hue = NULL, z.cex.range = NULL, z.pch = NULL, text.tol = NULL, tri.sum.tst = NULL, tri.pos.tst = NULL, b.lim = NULL, l.lim = NULL, lang = NULL, new.mar = NULL, new.centroid = TRUE)
 }
 \arguments{
   \item{geo}{List. 'geo' is one of the 3 way to set the texture triangle 
@@ -332,6 +332,9 @@
   \item{new.mar}{Vector of 4 numericals. Margin sizes of the plot. Default is 
 the same as par("mar"). See par("mar") for more details. Use 
 this at your own risks!}
+  \item{new.centroid}{Single logical. If TRUE (default) the new method (Paul Bourke) 
+is used to calculate the centroid. If FALSE the centroid is 
+taken as the mean x and y coordinates of the vertices.}
 }
 
 

Added: pkg/soiltexture/man/TT.polygon.area.Rd
===================================================================
--- pkg/soiltexture/man/TT.polygon.area.Rd	                        (rev 0)
+++ pkg/soiltexture/man/TT.polygon.area.Rd	2010-06-10 12:14:41 UTC (rev 24)
@@ -0,0 +1,28 @@
+\name{TT.polygon.area}
+\alias{TT.polygon.area}
+\title{Determines the area of 1 polygon (in x-y coordinates). }
+\description{Determines the area of 1 non-intersecting polygon (in x-y 
+coordinates). Used by TT.polygon.centroids(). pol.x[1]:pol.y[1] 
+is supposed different from pol.x[n]:pol.y[n] (i.e. the polygon 
+is NOT closed). 
+After "http://local.wasp.uwa.edu.au/~pbourke/geometry/polyarea/
+Calculating The Area And Centroid Of A Polygon. Written by 
+Paul Bourke, July 1988".}
+\usage{
+TT.polygon.area(pol.x, pol.y)
+}
+\arguments{
+  \item{pol.x}{Vector of numericals. X coordinates of each vertices of the 
+polygon.}
+  \item{pol.y}{Vector of numericals. Y coordinates of each vertices of the 
+polygon.}
+}
+
+\value{Returns a single numerical: area of the polygon.}
+
+\author{Julien MOEYS <jules_m78-soiltexture at yahoo.fr>}
+
+
+
+
+

Added: pkg/soiltexture/man/TT.polygon.centroids.Rd
===================================================================
--- pkg/soiltexture/man/TT.polygon.centroids.Rd	                        (rev 0)
+++ pkg/soiltexture/man/TT.polygon.centroids.Rd	2010-06-10 12:14:41 UTC (rev 24)
@@ -0,0 +1,31 @@
+\name{TT.polygon.centroids}
+\alias{TT.polygon.centroids}
+\title{Determines the centroid of 1 polygon (in x-y coordinates). }
+\description{Determines the centroid of 1 non-intersecting polygon (in x-y 
+coordinates). Used to determine the centroid of each texture 
+class in the texture triangle onces its clay silt sand 
+coordinates have been converted to x-y coordinates. pol.x[1]:pol.y[1] 
+is supposed different from pol.x[n]:pol.y[n] (i.e. the polygon 
+is NOT closed). 
+After "http://local.wasp.uwa.edu.au/~pbourke/geometry/polyarea/ 
+Calculating The Area And Centroid Of A Polygon. Written by 
+Paul Bourke, July 1988".}
+\usage{
+TT.polygon.centroids(pol.x, pol.y)
+}
+\arguments{
+  \item{pol.x}{Vector of numericals. X coordinates of each vertices of the 
+polygon.}
+  \item{pol.y}{Vector of numericals. Y coordinates of each vertices of the 
+polygon.}
+}
+
+\value{Returns a vector of 2 numericals: x and y coordinates of 
+the polygon's centroid. Vector items are names "x" and "y". }
+
+\author{Julien MOEYS <jules_m78-soiltexture at yahoo.fr>}
+
+
+
+
+

Modified: pkg/soiltexture/man/TT.vertices.plot.Rd
===================================================================
--- pkg/soiltexture/man/TT.vertices.plot.Rd	2010-06-07 14:48:15 UTC (rev 23)
+++ pkg/soiltexture/man/TT.vertices.plot.Rd	2010-06-10 12:14:41 UTC (rev 24)
@@ -1,7 +1,10 @@
 \name{TT.vertices.plot}
 \alias{TT.vertices.plot}
-\title{TT vertices plot}
-
+\title{Plot the vertices of a texture classification system. }
+\description{Plot the vertices of a texture classification system, on top 
+of an already drawn texture triangle plot. Also plot the 
+vertices numbers. See TT.vertices.tbl() and TT.classes.tbl() 
+for a non graphic, tabular equivalent of the plot.}
 \usage{
 TT.vertices.plot(geo, class.sys = "FAO50.TT", fg = NULL, col = NULL, cex = NULL, font = NULL, family.op = NULL, adj = NULL, pos = NULL, offset = NULL, blr.tx = NULL, text.sum = NULL, blr.clock = NULL)
 }

Modified: pkg/soiltexture/man/TT.vertices.tbl.Rd
===================================================================
--- pkg/soiltexture/man/TT.vertices.tbl.Rd	2010-06-07 14:48:15 UTC (rev 23)
+++ pkg/soiltexture/man/TT.vertices.tbl.Rd	2010-06-10 12:14:41 UTC (rev 24)
@@ -1,7 +1,10 @@
 \name{TT.vertices.tbl}
 \alias{TT.vertices.tbl}
-\title{TT vertices tbl}
-
+\title{Returns the table of vertices of a texture classification system.}
+\description{Returns the table of vertices of a texture classification system. 
+Returns the clay silt sand coordinates of each vertices. Use 
+TT.classes.tbl() to know the vertices that bounds each texture 
+class. See also TT.vertices.plot().}
 \usage{
 TT.vertices.tbl(class.sys = "FAO50.TT")
 }

Modified: pkg/soiltexture/man/soiltexture-package.Rd
===================================================================
--- pkg/soiltexture/man/soiltexture-package.Rd	2010-06-07 14:48:15 UTC (rev 23)
+++ pkg/soiltexture/man/soiltexture-package.Rd	2010-06-10 12:14:41 UTC (rev 24)
@@ -17,7 +17,7 @@
 \details{
 \tabular{ll}{Package: \tab soiltexture\cr
 Version: \tab 1.0\cr
-Date: \tab 2010-06-07\cr
+Date: \tab 2010-06-10\cr
 Title: \tab Functions for soil texture plot, classification and transformation\cr
 Author: \tab Julien MOEYS <jules_m78-soiltexture at yahoo.fr>\cr
 Maintainer: \tab Julien MOEYS <jules_m78-soiltexture at yahoo.fr>\cr

Modified: pkg/soiltexture.Rcheck.zip
===================================================================
(Binary files differ)

Modified: pkg/soiltexture_1.0.tar.gz
===================================================================
(Binary files differ)

Modified: pkg/soiltexture_1.0.zip
===================================================================
(Binary files differ)



More information about the Soiltexture-commits mailing list