[R] hi friends, is there any wait function in R

[deepak m r]

hi,
   is there any wait function in R. I am running one R script to plot
many graphs it is in the for loop. its showing no error but its not
plotting well I think i can solve this problem with a wait function.
Please help me in this regards. If u need any clarification about
programme. u can find the script below.

best regards,
Deepak.M.R
Biocomputing Group
University of Bologana.


#!/usr/bin/R
s<-c("GG","GA","GV","GL","GI","GM","GF","GW","GP","GS","GT","GC","GY","GN","GQ","GD","GE","GK","GR","GH","AA","AV","AL","AI","AM","AF","AW","AP","AS","AT","AC","AY","AN","AQ","AD","AE","AK","AR","AH","VV","VL","VI","VM","VF","VW","VP","VS","VT","VC","VY","VN","VQ","VD","VE","VK","VR","VH","LL","LI","LM","LF","LW","LP","LS","LT","LC","LY","LN","LQ","LD","LE","LK","LR","LH","II","IM","IF","IW","IP","IS","IT","IC","IY","IN","IQ","ID","IE","IK","IR","IH","MM","MF","MW","MP","MS","MT","MC","MY","MN","MQ","MD","ME","MK","MR","MH","FF","FW","FP","FS","FT","FC","FY","FN","FQ","FD","FE","FK","FR","FH","WW","WP","WS","WT","WC","WY","WN","WQ","WD","WE","WK","WR","WH","PP","PS","PT","PC","PY","PN","PQ","PD","PE","PK","PR","PH","SS","ST","SC","SY","SN","SQ","SD","SE","SK","SR","SH","TT","TC","TY","TN","TQ","TD","TE","TK","TR","TH","CC","CY","CN","CQ","CD","CE","CK","CR","CH","YY","YN","YQ","YD","YE","YK","YR","YH","NN","NQ","ND","NE","NK","NR","NH","QQ","QD","QE","QK","QR","QH","DD","DE","DK","DR","DH","EE","EK","ER","EH","KK","KR","KH","RR","RH","HH")
for(t in 1:length(s))
	{
	a<-read.table(paste("../All_alpha_proteins/alp",s[t],"mean.sat",sep=""),header=T)
	attach (a)
	names(a)
	al<-1:length(paste("alp",s[t],"_mean",sep=""))
	b<-read.table(paste("../All_beta_proteins/bet",s[t],"mean.sat",sep=""),header=T)
	attach(b)
	names(b)
	bl<-1:length(paste("bet",s[t],"_mean",sep=""))
	p<-read.table(paste("../Alpha_and_beta_proteins_a+b/apb",s[t],"mean.sat",sep=""),header=T)
	attach(p)	
	names(p)
	pl<-1:length(paste("apb",s[t],"_mean",sep=""))
	o<-read.table(paste("../Alpha_and_beta_proteins_aorb/aob",s[t],"mean.sat",sep=""),header=T)
	attach(o)	
	names(o)
	ol<-1:length(paste("aob",s[t],"_mean",sep=""))
	postscript(file=paste("Mean_",s[t],"_Plot.ps",sep=""))
	plot(0,xlim=c(0,160),ylim=c(0,70),main=paste("Mean Distance Plot for
",s[t]," Rsidue pair",sep=""),ylab="Mean Distance in
Angstrom",xlab="Residue Seperation Number")
	lines(al,paste("alp",s[t],"_mean",sep=""),col="blue",lty = 2)
	lines(bl,paste("bet",s[t],"_mean",sep=""),col="yellow",lty = 2)
	lines(pl,paste("apb",s[t],"_mean",sep=""),col="red",lty = 2)
	lines(ol,paste("aob",s[t],"_mean",sep=""),col="green",lty = 2)
	legend("topleft",c("Alpha Proteins","Beta Proteins","Alpha +
Beta","Alpha or Beta"),lty =
c(2,2,2,2),col=c("blue","yellow","red","green"))
	dev.off()
	}