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
Este foro tiene un número limitado de mensajes para enviar en un cierto período de tiempo. El ajuste se ha establecido en 5 mensaje(s) en 1 día