Simple slopes: seq.default(to = nrow(grid)) : 'to' must be of length 1

Question

I am trying to create some simple slopes using the following code:

model <- lm(EE ~ HO4 + A + interaction,  data = MyData)
> Coefficients:
    (Intercep