Hi Santanu,
You can write it out to a PDF:
a.new = 1.2
value.b = seq(from = 0, to = 1, by = 0.001)
pdf('MyGraphs.pdf',width=11, height=8.5,pointsize=12,
paper='special')
par(mfrow = c(3,2))
for (i in 1:length(d)){
plot(value.b, dbeta(shape1 = value.b, shape2 = d[i], a.new), main
paste("B[",i,"]"))}
dev.off()
On 10/24/07, Santanu Pramanik <spramanik at survey.umd.edu>
wrote:> Hi ,
>
> I'm having problem with the following plot. Basically I have to do
> 51(length of d, see below) plots. I want 6 plots (say) in a page and
> rests are in different pages. win.graph() starts a plot in new page. But
> I'm not being able to combine par(mfrow = c(3,2)) and win.graph()
within
> a loop.
>
>
>
> > d
> [1] 14.108 13.883 11.022 13.426 2.341 9.010 12.868 15.603 30.810
> 3.931 11.825 16.195 10.267 3.862 8.743 8.958 11.505
> [18] 13.015 16.701 13.159 12.211 6.219 4.863 7.736 15.876 12.964
> 14.066 7.423 9.824 8.002 5.279 11.688 3.051 6.702
> [35] 9.806 3.989 13.989 11.007 3.678 14.616 16.174 15.783 12.014
> 3.318 8.642 11.179 10.941 10.142 15.515 10.075 9.117
> >
>
> ## plot of B_i
> a.new = 1.2
> par(mfrow = c(3,2))
> value.b = seq(from = 0, to = 1, by = 0.001)
> for (i in 1:length(d)){
> plot(value.b, dbeta(shape1 = value.b, shape2 = d[i], a.new), main >
paste("B[",i,"]"))
> }
>
> Any help, comments would be gratefully acknowledged. Thanks in
> advance,
> Santanu
>
> --------------------------------------------------------------------
> Santanu Pramanik
> JPSM, 1218J Lefrak Hall
> University of Maryland, College Park
> Phone: 301-314-9916
>
>
>
> [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
--
Matthew C Keller
Asst. Professor of Psychology
University of Colorado at Boulder
www.matthewckeller.com