data.frame (equation = c('2+d','2+4+d*h','(5*d^h)/100'),
                   d = c(1,2,3),
                   h = c(1,3,4))

with(d, eval(parse(text = as.character(equation))))