r ändern den Spaltenwert bedingt
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)