ParallelMap
ParallelMap[If[0 < distance[data[[#1]], data[[#2]]] < 1.01, 1, 0] &,Range[1, 4],Range[1, 4]]
data
ParallelTable[If[0 < distance[data[[i]], data[[j]]] < 1.01, 1, 0] , {i, 4},{j,4}]
Graph
AtomQ