r Cambiar el valor de la columna condicionalmente
df <- within(df, est[b==0] <- (a[b==0]-5)/2.533)
Strange Snake
df <- within(df, est[b==0] <- (a[b==0]-5)/2.533)