Gnfj

employees <- data.frame(
id = 1:10,
name = c("Alice", "Bob", "Charlie", "David", "Eve", "Frank", "Grace", "Heidi", "Ivan", "Judy"),
designation = c("a", "b", "c", "d", "b", "a", "d", "c", "b", "a"),
salary = c(50000, 60000, 55000, 70000, 65000, 48000, 72000, 52000, 58000, 59000),
department = c("x", "y", "z", "z", "y", "x", "z", "y", "z", "x")
)

employees$salary[employees$department == 'z' & employees$designation employees$salary[employeesdepartment == 'z' & employeesdesignation %in% c('b', 'd')] + 1000

print(employees)