Buenas:
Creo que esto te sirve.
Un saludo.
> cifra <- function(x, n) {
+ x <- x * 10^(n-1)
+ x <- x - floor(x)
+ x <- floor(x * 10)
+ x
+ }
> cifra(12.468, 1)
[1] 4
> cifra(12.468, 2)
[1] 6
> cifra(12.468, 0)
[1] 2
Foro de debate
Función que entregue el i-ésimo decimal de un número
This forum has a limit to the number of forum postings you can make in a given time period - this is currently set at 5 posting(s) in 1 day