filestr = paste('/',rnum,'.save')
mainDir = '~/Desktop/'
subDir = 'mixcop.EM.iter.DATA/'
saveStr = gsub(" ","", paste(mainDir,subDir,filestr))
dir.create(file.path(mainDir, subDir), showWarnings = TRUE)
savedat = as.data.frame(list(phi=dat[,1], psi=dat[,2]))
save(savedat, file=saveStr)
print(paste('Data saved to ',saveStr))