The range with lift

First we plot the data.

Input := 

dataLiftPlot = ListPlot[data,
	PlotStyle -> PointSize[.02],
	AxesLabel -> {"angle [deg]", "range [m]"},
	PlotRange -> {{0, 16}, {0, 200}}]

Output =

-Graphics-

Several functional forms were tested visually, but the following offered the best fit while keeping with our intuition that the curve should pass through the origin.

Input := 

FuncLift = Fit[data, {th^(1/2), th}, th]

Output =

70.1163 Sqrt[th] - 6.23847 th

Input := 

FuncLiftPlot =
	Plot[FuncLift, {th, 0, 16},
	AxesLabel -> {"angle [deg]", "range [m]"},
	PlotRange -> {{0, 16}, {0, 210}}]

Output =

-Graphics-

Here's the function along with the data.

Input := 

Show[dataLiftPlot, FuncLiftPlot,
	AxesLabel -> {"angle [deg]", "range [m]"},
	PlotRange -> {{0, 16}, {0, 200}}]

Output =

-Graphics-