2020-07-13 15:05:18 +02:00
|
|
|
|
palautaYks <- function(num, yks) {
|
2021-11-10 14:02:35 +01:00
|
|
|
|
# palauttaa luvun num 10^yks termin kertoimen
|
|
|
|
|
|
# string:in?
|
|
|
|
|
|
# yks t<>ytyy olla kokonaisluku, joka on
|
|
|
|
|
|
# v<>hint<6E><74>n -1:n suuruinen. Pienemmill?
|
|
|
|
|
|
# luvuilla tapahtuu jokin py<70>ristysvirhe.
|
2020-07-13 15:05:18 +02:00
|
|
|
|
|
2021-11-10 14:02:35 +01:00
|
|
|
|
if (yks >= 0) {
|
|
|
|
|
|
digit <- num %% 10^(yks + 1)
|
|
|
|
|
|
digit <- floor(digit / (10^yks))
|
|
|
|
|
|
} else {
|
|
|
|
|
|
digit <- num * 10
|
|
|
|
|
|
digit <- floor(digit %% 10)
|
|
|
|
|
|
}
|
|
|
|
|
|
digit <- as.character(digit)
|
|
|
|
|
|
return(digit)
|
|
|
|
|
|
}
|
