Автоматическое округление

round_auto.R

RStudio

Fri Nov 17 17:01:04 2017

#Автоматическое округление в зависимости от исходных данных
#x<-3.3384762
round_auto <- function(x){ 
  ifelse(x<1,x<-round(x,3),
         ifelse(nchar(trunc(x))>=4,x<-round(x),
                       ifelse(nchar(trunc(x))<2,x<-round(x,2),x<-round(x,1))
                )
         )
return(x)  #На выходе - округлённое значение
} 

round_auto (.1234567)

## [1] 0.123

round_auto (1.234567)

## [1] 1.23

round_auto (12.34567)

## [1] 12.3

round_auto (123.4567)

## [1] 123.5

round_auto (1234.567)

## [1] 1235