function draft_example1_plot(r)
	
	figure; hold on;
	
	for i=1:r.n
		sent = find(r.y(i,:)>0);
		nsent = numel(sent);
		plot(sent, i*ones(1,nsent), 'r.');
	
	end
	
	for k=1:r.T
	
	
	
	end