apply is easy, but this is a nutshell for me to crack:
In multi-parametric regression, optimisers are used to find a best fit of a parametric function to say x1,x2 D
You must use this instead:
x.trans <- c(log10,exp,log10,function(x)x^2,function(x)1/x)
Then this:
mapply(function(f, x) f(x), x.trans, x.val)