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.
|
