Problems getting an R-function with linear model included to run

Question

I\'d like to create a function in R that I can apply to biological data for size correction. My data look like this:

Snapshot of data

And here the function: