<div dir="ltr">tente trocar dados por dados[, -1] (para tirar a 1a coluna, que é texto)</div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/6/3  <span dir="ltr"><<a href="mailto:alanarocha@sapo.pt" target="_blank">alanarocha@sapo.pt</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Boa tarde,<br>
porque será que o gráfico não é desenhado?<br>
pode ser por as medianas serem iguais?<br>
código:<br>
setwd("G:/SIN/Users/Ana Rua/dados não Panakeia e Panakeia")<br>
dados<-read.table("<u></u>Dadoshgbnaophgbp2sem2011.csv",<u></u>header=TRUE,sep=";", stringsAsFactors=TRUE, dec=",")<br>
dados<br>
<br>
<br>
#objectivo é:<br>
#verificar se há diferenças estatisticamente significativas entre os custos e os valores de hemoglobina para clinicas não panakeia no 2semestre de 2011.<br>
# Imprime as hipoteses do teste<br>
<br>
cat("\n\t Teste Wilcoxon\n")<br>
cat("Teste bicaudal:\n\tH0:  há diferenças significativas entre os valores de hemoglobina para clínicas não Panakeia e Panakeia, mediana=0",<br>
<br>
"\n\tH1: Não há diferenças significativas entre os valores de hemoglobina para clínicas não Panakeia e Panakeia, mediana diferente de 0 \n")<br>
<br>
wilcox.test(dados$<u></u>hgbnaopanakeia, dados$hgbpanakeia, paired=TRUE)<br>
<br>
<br>
boxplot(dados, axes=FALSE) # O parametro axes=FALSE faz com que os eixos não sejam desenhados<br>
title(col.main='blue',main= 'Valores de hemoglobina das clínicas não Panakeia e Panakeia no 2semestre de 2011') # Acrescenta o título do gráfico<br>
title(col.lab='blue',xlab= 'meses do 2semestre do ano 2011') # Acrescenta o titulo do eixo X<br>
title(col.lab="blue", ylab= 'Valores') # Acrescenta o titulo do eixo Y<br>
box() # Desenha a caixa em torno do gr?fico<br>
axis(2) # Coloca o eixo Y (o 2 ali representa o eixo Y) no gráfico<br>
axis(1, 1:6, c('Jul', 'Ago', 'Set', 'Out', 'Nov', 'Dez')) # Coloca no eixo X (representado pelo 1), nos pontos 1 a 6, as etiquetas Jul a Dez.<br>
<br>
dados:<br>
  X2sem2011 hgbnaopanakeia hgbpanakeia<br>
1       JUL           75.9        75.4<br>
2       AGO           77.5        77.1<br>
3       SET           79.4        77.0<br>
4       OUT           76.8        77.2<br>
5       NOV           76.1        78.0<br>
6       DEZ           78.3        76.7<br>
Ana<br>
<br>
<br>
______________________________<u></u>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/<u></u>cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-<u></u>guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div><br></div>