[R] Sweave Dynamic Graph Question

[cameron]

thx guys,  this is what i came up with.  it works fine, but too many lines
of code.

thanks again.
Cameron



\pagebreak
\section{General Value Graph Daily}
\setkeys{Gin}{width=1.1\textwidth}

<<results=tex,echo=FALSE>>=  

		rng=range(time(pf4[[1]]))
		
		Syr  <- as.numeric(format(rng[1],"%Y"))
		Eyr  <- as.numeric(format(rng[2],"%Y"))
		Smth <- as.numeric(format(rng[1],"%m"))
	
	for( yr in Syr:Eyr){

		file1=paste("myfile", yr, sep="")  
		Temp1 <- pf4[[1]][which(format(time(pf4[[1]]),"%Y")==yr),]
		Temp3 <- tapply(Temp1[,1],as.yearmon(time(Temp1)),FUN=mean)
				
		cat("\\begin{figure}[!htbp]\n")
		cat("\\begin{center}\n")

		pdf(file=paste(file1,".pdf",sep=""))

		par(mfrow=c(4,3),mar=c(3,2,2,2))
		for(i in Smth:length(Temp3)){

			i <- ifelse(i < 10, paste(0,i,sep=""),i)
			Date <- paste(i,yr,sep="-")

			Temp2 <- pf4[[1]][which(format(time(pf4[[1]]),"%m-%Y")==Date),]
			plot(Temp2[,"Day"],Temp2[,"Daily
Value"]/1000000,type="l",main=paste(factor(as.numeric(i), labels =
month.name[as.numeric(i)]),yr,sep="-")) 
		}
		  
		dev.off() 
		cat("\\includegraphics{", file1, "}\n", sep="") 
	
		cat("\\end{center}\n")
		cat("\\caption{Volume Graph Analysis Daily ",yr,", x = business day, y =
in million}\n",sep="")
		cat("\\label{fig3}\n")
		cat("\\end{figure}\n\n")
} 
@
-- 
View this message in context: http://r.789695.n4.nabble.com/Sweave-Dynamic-Graph-Question-tp3051003p3055407.html
Sent from the R help mailing list archive at Nabble.com.