max/ourMELONS
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Translated kldiv2str

Browse source
This commit is contained in:
Waldir Leoncio 2020-07-14 10:10:26 +02:00
parent 9c5beeda43
commit d05fd94cfb
1 changed files with 24 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
R/kldiv2str.R Normal file
View file

@ -0,0 +1,24 @@
kldiv2str <- function(div) {
mjono <- ' '
if (abs(div) < 100) {
# Ei tarvita e-muotoa
mjono[6] <- as.character((floor(div * 1000)) %% 10)
mjono[5] <- as.character((floor(div * 100)) %% 10)
mjono[4] <- as.character((floor(div * 10)) %% 10)
mjono[3] <- '.'
mjono[2] <- as.character((floor(div)) %% 10)
arvo <- (floor(div / 10)) %% 10
if (arvo > 0) {
mjono[1] <- as.character(arvo)
}
} else {
suurinYks <- floor(log10(div))
mjono[6] <- as.character(suurinYks)
mjono[5] <- 'e'
mjono[4] <- palautaYks(abs(div), suurinYks - 1)
mjono[3] <- '.'
mjono[2] <- palautaYks(abs(div), suurinYks)
}
return(mjono)
}