[R-gregmisc-users] SF.net SVN: r-gregmisc:[1442] trunk/gplots/R/baseOf.R

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

Revision: 1442
          http://r-gregmisc.svn.sourceforge.net/r-gregmisc/?rev=1442&view=rev
Author:   warnes
Date:     2010-06-11 03:14:38 +0000 (Fri, 11 Jun 2010)

Log Message:
-----------
Moved baseOf() into a separate file

Added Paths:
-----------
    trunk/gplots/R/baseOf.R

Added: trunk/gplots/R/baseOf.R
===================================================================
--- trunk/gplots/R/baseOf.R	                        (rev 0)
+++ trunk/gplots/R/baseOf.R	2010-06-11 03:14:38 UTC (rev 1442)
@@ -0,0 +1,25 @@
+
+# transform base
+#   v = value of base 10 to be transformed
+#   b = new base
+#   l = minimal length of returned array (default is 1)
+# return value: array of factors, highest exponent first
+baseOf<-function(v,b,l=1) {
+	remainder<-v
+	i<-l
+	ret<-NULL
+	while(remainder>0 || i>0) {
+		#print(paste("i=",i," remainder=",remainder))
+		m<-remainder%%b
+		if (is.null(ret)) {
+			ret<-m
+		}
+		else {
+			ret<-c(m,ret)
+		}
+		remainder <- remainder %/% b
+		i<-i-1
+	}
+	return(ret)
+}
+                                   


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