#PROGRAM: FORMAT_XY.R
#WRITTEN BY: VERA LINDSAY, Jan 24/2005
#DESCRIPTION: THIS SCRIPT RE-ARRANGES AN INPUT FILE ACCORDING TO GIVEN CRITERIA 


#READ THE COMMA SEPERATED DATA FILE 'in.txt'AND ASSIGN IT TO THE VARIABLE 'dat'

dat<-read.csv(file="in.txt",header = F)


end<-"end"
a<-1
for (a in 1:length(dat$V1)){
id<-dat[a:a,1:1]

#Create table of x,y co-ordiantes from each line disregarding the 1st value:
	xy<-matrix(data=NA, ncol = 2, nrow = (length(dat)-1)/2)
	i<-2
	j<-1
	k<-1
	m<-0
	
	for (i in 2:length(dat)){
	if (m==0){
	xy[j,k]<-(dat[a:a,i:i])
	i<-i+1
	k<-2
	m<-1
	}else{
	xy[j,k]<-(dat[a:a,i:i])
	i=i+1
	j<-j+1
	k<-1
	m<-0
	}
	}
if (a==1){
write.table(id, file= "out.txt",append=F, quote=F, sep=",",row.names=F,col.names=F)
write.table(xy, file= "out.txt",append=T, quote=F, sep=",",row.names=F,col.names=F)
write.table(end, file= "out.txt",append=T, quote=F, sep=",",row.names=F,col.names=F)
}else{
write.table(id, file= "out.txt",append=T, quote=F, sep=",",row.names=F,col.names=F)
write.table(xy, file= "out.txt",append=T, quote=F, sep=",",row.names=F,col.names=F)
write.table(end, file= "out.txt",append=T, quote=F, sep=",",row.names=F,col.names=F)
}
a<-a+1
}
write.table(end, file= "out.txt",append=T, quote=F, sep=",", row.names=F,col.names=F)


#ADDITONAL NOTES ON R:
#TO DISPLAY ANY VARIABLE TYPE THE VARIABLE NAME AT THE PROMPT: >dat1
#TO DISPLAY A PERTICULAR VALUE IN THE VARIBLE TYPE THE ROW AND COLUMN: dat1[1,2]
#TO GET THE MAN PAGE FOR ANY COMMAND TYPE: help(command)
#TO QUIT R TYPE: q()  
#I usialy save the workspace immage - this saves all your variables and command history.
#R IS A STATISTICS AND GRAPHICS PROGRAN. IT IS WELL DOCUMENTED ON THE INTERNET (google: R cran)