Am 22.08.2012, 21:46 Uhr, schrieb Dr. Holger van Lishaut
<h.v.lish...@gmx.de>:
SignifStellen<-function(x){
strx=as.character(x)
nchar(regmatches(strx, regexpr("[1-9][0-9]*\\.[0-9]*[1-9]",strx)))-1
}
returns the significant figures of a number. Perhaps this can help
someone.
Sorry, to work, it must read:
SignifStellen<-function(x){
strx=as.character(x)
intFront <- nchar(regmatches(strx, regexpr("[1-9][0-9]*\\.", strx)))
intEnd <- nchar(regmatches(strx, regexpr("\\.[0-9]*[1-9]", strx)))
intFront+intEnd-2
}
Best regards
H. van Lishaut
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.