I am not sure I understand your problem correctly. If what you are asking is how to get the prediction for specific values it is just
result[{200, 210, 215, 235}]
(* {82.839, 82.8391, 82.8392, 82.8393} *)
By the way, there are ways to generate data programmatically
data == Rule @@@ dataxy == Thread[Rule[tm, Gm]]
(* True *)
