[R-es] Ayuda con Función nueva variable

[Javier Marcuzzi]

Estimado Andrés Hirigoyen

Puedes copiar y pegar el siguiente código en R puro, o poco elegante, posiblemente escrito en forma vieja, pero para mí sí funciona y lo puedo codificar desde cero entendiendo todo, mejor.

n1 <-c(974.0, 938.1, 908.9, 884.3, 862.6, 843.2, 825.4)
alfa <-c(0.2642, 0.3754, 0.5014, 0.6273, 0.7380, 0.8250, 0.8875)
datos <- data.frame(n1,alfa)
datos
#creo indice
indices <- as.numeric(rownames(datos))
datos <- data.frame(indices, datos)
datos

valor <-1025
valorCalculado <- c()
for (i in datos$indices) {
  if(i == 1)
  {
    n1 <- datos[datos$indice == i, 2]
    alpha <- datos[datos$indice == i, 3]
    valor <- valor-(valor-n1)^alpha
    valorCalculado <-c(valorInicial)
  }
  else
  {
   # indices    n1   alfa    =>     2    3
    n1 <- datos[datos$indice == i, 2]
    alpha <- datos[datos$indice == i, 3]
    
    valor <- valor-(valor-n1)^alpha
    valorCalculado <- c(valorCalculado, valor)
  }
}

datos <- data.frame(datos, valorCalculado)
datos


Javier Rubén Marcuzzi