gráfico

3 Jun 2013

      Boa tarde,
porque será que o gráfico não é desenhado?
pode ser por as medianas serem iguais?
código:
setwd("G:/SIN/Users/Ana Rua/dados não Panakeia e Panakeia")
dados<-read.table("Dadoshgbnaophgbp2sem2011.csv",header=TRUE,sep=";",  
stringsAsFactors=TRUE, dec=",")
dados

#objectivo é:
#verificar se há diferenças estatisticamente significativas entre os  
custos e os valores de hemoglobina para clinicas não panakeia no  
2semestre de 2011.
# Imprime as hipoteses do teste

cat("\n\t Teste Wilcoxon\n")
cat("Teste bicaudal:\n\tH0:  há diferenças significativas entre os  
valores de hemoglobina para clínicas não Panakeia e Panakeia,  
mediana=0",

"\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")

wilcox.test(dados$hgbnaopanakeia, dados$hgbpanakeia, paired=TRUE)

boxplot(dados, axes=FALSE) # O parametro axes=FALSE faz com que os  
eixos não sejam desenhados
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
title(col.lab='blue',xlab= 'meses do 2semestre do ano 2011') #  
Acrescenta o titulo do eixo X
title(col.lab="blue", ylab= 'Valores') # Acrescenta o titulo do eixo Y
box() # Desenha a caixa em torno do gr?fico
axis(2) # Coloca o eixo Y (o 2 ali representa o eixo Y) no gráfico
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.

dados:
   X2sem2011 hgbnaopanakeia hgbpanakeia
1       JUL           75.9        75.4
2       AGO           77.5        77.1
3       SET           79.4        77.0
4       OUT           76.8        77.2
5       NOV           76.1        78.0
6       DEZ           78.3        76.7
Ana

alanarocha＠sapo.pt

Rodrigo Coster

etiquetas

participantes (2)