Displaying 1 result from an estimated 1 matches for "pagesperfigur".
Did you mean:
pagesperfigure
2003 Jul 25
0
Sweave and Printing Lattice Figures From Loop
...NumberPages <- length(created)
FileNameLength <- unlist(lapply(created,nchar))
# Use this to take advantage of that fact
# that file names with the same number of
# characters are pages to a given
UniqueLength <- unique(FileNameLength)
# unique length = base figure count
PagesPerFigure <- unlist(
lapply(
UniqueLength, function(x) sum(as.numeric(FileNameLength%in%x))
)
)
# Now that i've produced the
# figures and indexes
# need to put in the LaTeX
# code and proper file names
# as well as any thing else
z<-1
for(i in 1:Numbe...