Hi, Thank you in advance for taking the time to look at my problem. I would be grateful if you could help me with the code. I'm trying to simulate the transitional values for my model after obtaining steady-state values (k = 871.829). However, this is the error msg I have been receiving all the time no matter what I try (within my limited knowledge):

FindRoot[capeq[1] == 0, {k[2], 871.8287954437363}]
FindRoot::nlnum: The function value {-1.013 d[2.]+<<9>>+<<1>>-(1.05 (<<15>>+    <<2>>))/(<<19>>+<<18>>)} is not a list of numbers with dimensions {1} at {k[2]} = {871.829}.

The capeq[1] equation as follows, since t = 1 to 30:

capeq[t_] = 
 a[1, t] + a[2, t - 1]/(1 + n) + a[3, t - 2]/(1 + n)^2 + 
  a[4, t - 3]/(1 + n)^3 + a[5, t - 4]/(1 + n)^4 + 
  a[6, t - 5]/(1 + n)^5 - 
  d[t + 1]*(1 + n) - (1 + n)*
   k[t + 1]*(l[1, t] + l[2, t - 1]/(1 + n) + l[3, t - 2]/(1 + n)^2 + 
     l[4, t - 3]/(1 + n)^3 + l[5, t - 4]/(1 + n)^4 + 
     l[6, t - 5]/(1 + n)^5)

I hope the above information is adequate for you to help me. Much appreciation for your time. Most humbly, Pema