[R-gregmisc-users] SF.net SVN: r-gregmisc:[1576] trunk/gmodels/R/percentile.R

[<wa...@us...>]

Revision: 1576
          http://r-gregmisc.svn.sourceforge.net/r-gregmisc/?rev=1576&view=rev
Author:   warnes
Date:     2012-06-28 00:47:23 +0000 (Thu, 28 Jun 2012)
Log Message:
-----------
Move percentile() function to a separate file.

Added Paths:
-----------
    trunk/gmodels/R/percentile.R

Added: trunk/gmodels/R/percentile.R
===================================================================
--- trunk/gmodels/R/percentile.R	                        (rev 0)
+++ trunk/gmodels/R/percentile.R	2012-06-28 00:47:23 UTC (rev 1576)
@@ -0,0 +1,9 @@
+percentile <- function(x, distn, include.observed=FALSE)
+{
+  if(include.observed)
+    distn <- c(x, distn)
+  
+  n <- length(distn)
+    
+  return(findInterval(x, distn[order(distn)]) / n)
+}

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.