Colocar estatística Z na curva normal - TH

Pessoal, estou aqui tentando, mas sem sucesso colocar a estatística Ztab, Zcal, mas sem sucesso. media <- 170 stder <- 8 x <- seq(media-3*stder, media+3*stder, 0.01) y <- dnorm(x, media, stder) plot(x, y, type='l',axes=F,xlab="",ylab="") abline(h=0) hx <- seq(media+2*stder, media+3*stder, 0.01) hy <- dnorm(hx, media, stder) n <- length(hy) polygon(c(hx, rev(hx)), c(hy, rep(0, n)), col=2) # Tentei text(locator(n=1),"Zcal=3.53") text(locator(n=1),"Ztab=1,64") Mas, preciso aumentar a área abaixo do gráfico para plotar estes valores e não consegui! Alguém tem alguma sugestão? Outra situação é que Z_{cal} para ficar mais elegante não funcionou com locator. obrigado

On 03/03/2014 09:19 PM, Andre Oliveira wrote:
Pessoal, estou aqui tentando, mas sem sucesso colocar a estatística Ztab, Zcal, mas sem sucesso.
media <- 170 stder <- 8 x <- seq(media-3*stder, media+3*stder, 0.01) y <- dnorm(x, media, stder) plot(x, y, type='l',axes=F,xlab="",ylab="") abline(h=0) hx <- seq(media+2*stder, media+3*stder, 0.01) hy <- dnorm(hx, media, stder) n <- length(hy) polygon(c(hx, rev(hx)), c(hy, rep(0, n)), col=2)
# Tentei
text(locator(n=1),"Zcal=3.53") text(locator(n=1),"Ztab=1,64")
Mas, preciso aumentar a área abaixo do gráfico para plotar estes valores e não consegui! Alguém tem alguma sugestão? Outra situação é que Z_{cal} para ficar mais elegante não funcionou com locator.
Andre Porque voce nao coloca o texto por coordenadas e diminui a fonte ao mesmo tempo, por exemplo: text(x=189,y=.001,labels='Zcal=3,53',cex=.7) text(x=190,y=.002,labels='Ztab=1,64',cex=.7) []s Tura

Valeu Bernardo obrigado. André Oliveira Souza Em Terça-feira, 4 de Março de 2014 9:20, Bernardo Rangel Tura <tura@centroin.com.br> escreveu: On 03/03/2014 09:19 PM, Andre Oliveira wrote:
Pessoal, estou aqui tentando, mas sem sucesso colocar a estatística Ztab, Zcal, mas sem sucesso.
media <- 170 stder <- 8 x <- seq(media-3*stder, media+3*stder, 0.01) y <- dnorm(x, media, stder) plot(x, y, type='l',axes=F,xlab="",ylab="") abline(h=0) hx <- seq(media+2*stder, media+3*stder, 0.01) hy <- dnorm(hx, media, stder) n <- length(hy) polygon(c(hx, rev(hx)), c(hy, rep(0, n)), col=2)
# Tentei
text(locator(n=1),"Zcal=3.53") text(locator(n=1),"Ztab=1,64")
Mas, preciso aumentar a área abaixo do gráfico para plotar estes valores e não consegui! Alguém tem alguma sugestão? Outra situação é que Z_{cal} para ficar mais elegante não funcionou com locator.
Andre Porque voce nao coloca o texto por coordenadas e diminui a fonte ao mesmo tempo, por exemplo: text(x=189,y=.001,labels='Zcal=3,53',cex=.7) text(x=190,y=.002,labels='Ztab=1,64',cex=.7) []s Tura _______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.

Deu certo, porém preciso de colocar a probabilidade e text não aceitou letras gregas. Alguma sugestão? text(x=-0.5,y=0.1,labels="P(-infinity<z<0.72)=0,7642") André Oliveira Souza Em Terça-feira, 4 de Março de 2014 11:17, Andre Oliveira <andreolsouza@yahoo.com.br> escreveu: Valeu Bernardo obrigado. André Oliveira Souza Em Terça-feira, 4 de Março de 2014 9:20, Bernardo Rangel Tura <tura@centroin.com.br> escreveu: On 03/03/2014 09:19 PM, Andre Oliveira wrote:
Pessoal, estou aqui tentando, mas sem sucesso colocar a estatística Ztab, Zcal, mas sem sucesso.
media <- 170 stder <- 8 x <- seq(media-3*stder, media+3*stder, 0.01) y <- dnorm(x, media, stder) plot(x, y, type='l',axes=F,xlab="",ylab="") abline(h=0) hx <- seq(media+2*stder, media+3*stder, 0.01) hy <- dnorm(hx, media, stder) n <- length(hy) polygon(c(hx, rev(hx)), c(hy, rep(0, n)), col=2)
# Tentei
text(locator(n=1),"Zcal=3.53") text(locator(n=1),"Ztab=1,64")
Mas, preciso aumentar a área abaixo do gráfico para plotar estes valores e não consegui! Alguém tem alguma sugestão? Outra situação é que Z_{cal} para ficar mais elegante não funcionou com locator.
Andre Porque voce nao coloca o texto por coordenadas e diminui a fonte ao mesmo tempo, por exemplo: text(x=189,y=.001,labels='Zcal=3,53',cex=.7) text(x=190,y=.002,labels='Ztab=1,64',cex=.7) []s Tura _______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível. _______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.

Boa tarde, Poderia tentar: pos1 <- locator(1) pos2 <- locator(1) pos3 <- locator(1) text(pos1, expression('Z'[cal]~'= 3.53')) text(pos2, expression('Z'[tab]~'= 1.64')) text(pos3, expression('P('-infinity~'<z<0.72)=0,7642')) Éder Comunello <c <comunello.eder@gmail.com>omunello.eder@gmail.com> Dourados, MS - [22 16.5'S, 54 49'W]
participantes (3)
-
Andre Oliveira
-
Bernardo Rangel Tura
-
Éder Comunello