[R-es] qcc con par

[Martin Vidalon]

Muchas gracias, lo probaré.
Atentamente

Martin Vidalon


El mié., 21 ago. 2019 a las 11:08, Diego Martín (<ako.sistemas using gmail.com>)
escribió:

> Saludos:
>
>         No conozco la librería qcc, así que cabe que pudiera estar errando
> en la interpretación de lo que buscas, estimado Martin. En todo caso déjame
> que te haga la siguiente sugerencia. A mí me ha ido, pero insisto, no sé si
> te valdrá.
>
> library(qcc)
> n <- c(rep(50,5), rep(100,5), rep(25, 5))
> x <- rbinom(length(n), n, 0.2)
>
> g1 <- qcc(x, type="p", size=n, plot = FALSE)
> g2 <- qcc(x, type="np", size=n, plot = FALSE)
>
> vpar <- par(no.readonly = TRUE)
> par(mfrow=c(1,2), mar=c(5,5,3,0))
> plot(g1, title="Gráfico 1", ylim=c(0,0.5),
>      add.stats=FALSE, restore.par=FALSE)
> par("mar"=c(5,0,3,3), yaxt="n")
> plot(g2, title="Gráfico 2", add.stats=FALSE, ylim=c(0,0.5))
> par(vpar)
>
>
>         Afectuosamente.
>
> El mar., 20 ago. 2019 a las 21:48, Martin Vidalon (<
> martinvidalon using gmail.com>) escribió:
>
>> Hola colegas, por favor si me indican que estoy haciendo mal.
>> Estoy tratando de usar el paquete QCC y colocar mas de gráfico de control
>> en una sola ventana usando función "par" con "qcc" para presentar varios
>> gráficos en la misma ventana.
>> He probado pero no funciona, solo muestra un gráfico miren el código
>>
>> # set unequal sample sizes
>> n <- c(rep(50,5), rep(100,5), rep(25, 5))
>> # generate randomly the number of successes
>> x <- rbinom(length(n), n, 0.2)
>> par(mfrow=c(1,2))
>> # plot the control chart with variable limits
>> qcc(x, type="p", size=n)
>> # plot the standardized control chart
>> qcc(x, type="np", size=n)
>>
>> Gracias si alguien me ayuda
>> Atentamente
>>
>> Martin Vidalon
>>
>>         [[alternative HTML version deleted]]
>>
>> _______________________________________________
>> R-help-es mailing list
>> R-help-es using r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>

	[[alternative HTML version deleted]]