Estimados
No me deja hacr el plot, me dice Error in plot.new() : figure margins too large
Es en esta orden, adjunto script completo:
par(mfrow=c(2,1)) # divides the page into two plotting areas
plot(sirmodel$time,sirmodel$I/N,ylim=c(0,1.5*max(sirmodel$I/N)),type="l",col=1,lwd=5,xlab="Time,
in days",ylab="Fraction infected
(prevalence)",main=paste("Influenza
pandemic in population of ",N,sep=""))
cat("The final size of epidemic from the deterministic model is
",max(sirmodel$R/N),"\n")
saludos
José
--
Dr. Jose A. Betancourt Bethencourt
Universidad de Ciencias Medicas Carlos j. Finlay
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: sir_agent.R
Type: application/octet-stream
Size: 4647 bytes
Desc: no disponible
URL:
<https://stat.ethz.ch/pipermail/r-help-es/attachments/20210310/e8cfb88c/attachment-0002.obj>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: sir_agent_func.R
Type: application/octet-stream
Size: 10199 bytes
Desc: no disponible
URL:
<https://stat.ethz.ch/pipermail/r-help-es/attachments/20210310/e8cfb88c/attachment-0003.obj>
Jose, Si usas RStudio, eso pasa cuando tienes el panel ?plots? muy pequeño. Prueba a tener el tamaño normal y creo que te saldrá el gráfico. Un saludo, Emilio L. Cano http://emilio.lcano.com> El 10 mar 2021, a las 21:26, Jose Betancourt Bethencourt <betanster en gmail.com> escribió: > > Estimados > No me deja hacr el plot, me dice Error in plot.new() : figure margins too large > > Es en esta orden, adjunto script completo: > > par(mfrow=c(2,1)) # divides the page into two plotting areas > plot(sirmodel$time,sirmodel$I/N,ylim=c(0,1.5*max(sirmodel$I/N)),type="l",col=1,lwd=5,xlab="Time, > in days",ylab="Fraction infected (prevalence)",main=paste("Influenza > pandemic in population of ",N,sep="")) > cat("The final size of epidemic from the deterministic model is > ",max(sirmodel$R/N),"\n") > > saludos > José > -- > Dr. Jose A. Betancourt Bethencourt > Universidad de Ciencias Medicas Carlos j. Finlay > <sir_agent.R><sir_agent_func.R>_______________________________________________ > R-help-es mailing list > R-help-es en r-project.org > https://stat.ethz.ch/mailman/listinfo/r-help-es