7 lines
151 B
R
7 lines
151 B
R
|
omaRound <- function(num) {
|
|||
|
|
# Py<50>rist<73><74> luvun num 1 desimaalin tarkkuuteen
|
|||
|
|
num <- num * 10
|
|||
|
|
num <- round(num)
|
|||
|
|
num2 <- num / 10
|
|||
|
|
return(num2)
|
|||
|
|
}
|