How to write out this regression equation in R?

How to make R write out: 

Balance = 2 + 3 * IntGDP + 5 * IntUnemployment + 0.3 * d1

from the table below:

Balance         Intercept       IntGDP  GDPNum  IntUnemployment 
IntInflation    d1      d2      d3
30000           2               3                       5  
0.3  0       0 

Maybe ?sprintf would help?

And if you wrap that in a function that takes a vector, using apply() on the table would give you one string per row,

*******************************************************************
This email and any attachments are confidential. Any use...{{dropped:8}}