In the LSM function I get an error:

Error in eval (call, parent.frame ()):
dims [product 8] do not match the length of object [10]
In addition: Warning message:
In e1 @ .Data - e2:
longer object length is not a multiple of shorter object length

when I look for where the error is, I find that it is here:

diff <- sum (abs (harvest (stock) [, ac (range (stock) ["maxyear"])] - Fnew))

Thank you for helping me with this error.