Clever... Good observation on the last example, mistake on my part.
Thanks for all the suggestions. Sam -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Hans-Joerg Bibiko Sent: Friday, July 07, 2006 4:27 AM To: [email protected] Subject: Re: [R] engineering notation format Hi, try this: formatEng <- function(x) { s<-as.numeric(strsplit(format(x, scientific=T),"e")[[1]]) return(paste(s[1]*10^(s[2]%%3),as.integer(s[2]-(s[2]%%3)),sep="e")) } >> >> Some examples: >> >> 1635 000 000 => 1.635E9 >> 163 500 000 => 163.5E6 >> 0.000 000 000 135 != 135E-9 >> 0.000 000 000 135 => 125E-12 ? Hans ********************************************************** Hans-Joerg Bibiko Max Planck Institute for Evolutionary Anthropology Department of Linguistics Deutscher Platz 6 phone: +49 (0) 341 3550 341 D-04103 Leipzig fax: +49 (0) 341 3550 333 Germany e-mail: [EMAIL PROTECTED] ______________________________________________ [email protected] mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html ______________________________________________ [email protected] mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
