Pasted output into sampling.r; changed index in working.r