Update CreateMapTable.r

# Comment 2 from Juergen on 10/1/14 in "Juergen" branch
Update CreateMapTable.r
Update CreateMapTable.r

# Comment 5  from Juergen on 10/1/14 in "Juergen" branch (and deleted Comment #4)
Merge pull request #7 from symanzik/Juergen

Test from Juergen #2