Changed strreplace(keys.pname, "(1).", "1_") to

escapedParameterName(keys.pname) in order to allow the function to
work with model parameters with higher values than 1