Create list of {x,f(x)} pairs

How can I do this in Mathematica:

r=Range[0,20,0.13];
fr = HeavisideTheta[r];
data = somecoolfunctionsinmathematica[r,fr]


So that data now is in the form useful to Fit: {{r_1,fr_1},{r_2,fr_2},...}

Thanks!

-

This is the correct way to use Table if you prefer it to Map:

Table[{i, HeavisideTheta[10 - i]}, {i, 0, 20, 0.013}]

-
data = Table[{r[i], HeavisideTheta[10-r[i]]}, {r[i], Range[0, 20, 0.013]}]

Map will do it: {#,HeavisideTheta[10-#]}&/@Range[0,20,0.013] –  Sasha Nov 9 '11 at 13:16
Also Transpose[{#, HeavisideTheta[10 - #]}]&[Range[0, 20, 0.013]]... –  Ｊ. Ｍ. Nov 9 '11 at 13:44