How to get a proper correlatiion with predict() in R?

Question

I have a small data base (txt file).

I want to obtain an logarithmic regression in R.

The commands that I am using are:

regression <- read.delim(