function set_Rdata(e,value)
global all_edges;

all_edges(e(1)).data{mod4(e(2)+1)} = value;