Could you send the the whole code of the .dat and of .mod please ?
The attached files show what the model and data would look like, after making the changes described in this thread. There is still something wrong with the definition of param R, however, and I do not see any obvious way to fix it.
steiner.mod (589 Bytes)
steiner.dat (331 Bytes)