
Boa tarde, estou a fazer um trabalho onde tenho de usar ifs gostaria de saber se o meu if está bem construido, senão o que devo alterar. ficheiro: setwd("G:/SIN/Users/Ana Rua") objectivo<-c("verificar se a percentagem de Hgb de cada clínica é <70% em 3 meses consecutivos no ano 2012,no caso de serem aparece: 3 meses abaixo senão aparece ok") objectivo dados<-read.table("indicadores.csv",header=TRUE,sep=";") head(dados) names(dados) ifelse(Jan<70&Fev<70&Mar<70){ else{ cat"\n\se for menor que 70 em 3 meses consecutivos, devolve "3meses mais baixos" e imprime o nome da clinica"); else{ cat(\n\caso contrário devolve OK"); return(Clinica) resultados setwd("G:/SIN/Users/Ana Rua") objectivo<-c("verificar se a percentagem de Hgb de cada clínica é <70% em 3 meses consecutivos no ano 2012,no caso de serem aparece: 3 meses abaixo senão aparece ok") objectivo [1] "verificar se a percentagem de Hgb de cada clínica é <70% em 3 meses consecutivos no ano 2012,no caso de serem aparece: 3 meses abaixo senão aparece ok" dados<-read.table("indicadores.csv",header=TRUE,sep=";") head(dados) Clinica Jan Fev Mar Abr Mai Jun Jul Ago Set Out 1 Ponte da Barca 76.1 80.0% 82.8% 83.3% 84.6% 79.4% 84.1% 86.5% 73.1% 63.2% 2 Braga 67.3% 74.0% 72.7% 76.8% 70.7% 79.0% 70.4% 75.5% 72.5% 72.2% 3 Fafe 68.24% 69.1% 73.2% 79.0% 72.6% 84.5% 82.1% 77.4% 79.8% 75.3% 4 Maia 77.4% 80.9% 76.8% 76.0% 76.6% 80.8% 81.1% 81.4% 80.6% 82.6% 5 VNGaia 82.1% 80.7% 82.7% 84.4% 82.0% 78.9% 81.8% 80.9% 77.8% 76.5% 6 SMFeira 78.22% 78.2% 77.0% 80.6% 81.8% 77.6% 63.6% 67.7% 74.2% 71.4% Nov Dez 1 66.7% 68.7% 2 75.5% 73.9% 3 79.3% 76.7% 4 83.3% 84.9% 5 81.4% 80.4% 6 73.7% 76.0% names(dados) [1] "Clinica" "Jan" "Fev" "Mar" "Abr" "Mai" "Jun" [8] "Jul" "Ago" "Set" "Out" "Nov" "Dez" com os melhores cumprimentos Ana Rocha

Olhe na ajuda da função: ?ifelse -----Mensagem Original----- From: alanarocha@sapo.pt Sent: Monday, February 04, 2013 2:03 PM To: R-br@listas.c3sl.ufpr.br Subject: [R-br] trabalhar com ifelse Boa tarde, estou a fazer um trabalho onde tenho de usar ifs gostaria de saber se o meu if está bem construido, senão o que devo alterar. ficheiro: setwd("G:/SIN/Users/Ana Rua") objectivo<-c("verificar se a percentagem de Hgb de cada clínica é <70% em 3 meses consecutivos no ano 2012,no caso de serem aparece: 3 meses abaixo senão aparece ok") objectivo dados<-read.table("indicadores.csv",header=TRUE,sep=";") head(dados) names(dados) ifelse(Jan<70&Fev<70&Mar<70){ else{ cat"\n\se for menor que 70 em 3 meses consecutivos, devolve "3meses mais baixos" e imprime o nome da clinica"); else{ cat(\n\caso contrário devolve OK"); return(Clinica) resultados setwd("G:/SIN/Users/Ana Rua") objectivo<-c("verificar se a percentagem de Hgb de cada clínica é <70% em 3 meses consecutivos no ano 2012,no caso de serem aparece: 3 meses abaixo senão aparece ok") objectivo [1] "verificar se a percentagem de Hgb de cada clínica é <70% em 3 meses consecutivos no ano 2012,no caso de serem aparece: 3 meses abaixo senão aparece ok" dados<-read.table("indicadores.csv",header=TRUE,sep=";") head(dados) Clinica Jan Fev Mar Abr Mai Jun Jul Ago Set Out 1 Ponte da Barca 76.1 80.0% 82.8% 83.3% 84.6% 79.4% 84.1% 86.5% 73.1% 63.2% 2 Braga 67.3% 74.0% 72.7% 76.8% 70.7% 79.0% 70.4% 75.5% 72.5% 72.2% 3 Fafe 68.24% 69.1% 73.2% 79.0% 72.6% 84.5% 82.1% 77.4% 79.8% 75.3% 4 Maia 77.4% 80.9% 76.8% 76.0% 76.6% 80.8% 81.1% 81.4% 80.6% 82.6% 5 VNGaia 82.1% 80.7% 82.7% 84.4% 82.0% 78.9% 81.8% 80.9% 77.8% 76.5% 6 SMFeira 78.22% 78.2% 77.0% 80.6% 81.8% 77.6% 63.6% 67.7% 74.2% 71.4% Nov Dez 1 66.7% 68.7% 2 75.5% 73.9% 3 79.3% 76.7% 4 83.3% 84.9% 5 81.4% 80.4% 6 73.7% 76.0% names(dados) [1] "Clinica" "Jan" "Fev" "Mar" "Abr" "Mai" "Jun" [8] "Jul" "Ago" "Set" "Out" "Nov" "Dez" com os melhores cumprimentos Ana Rocha _______________________________________________ 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.

On 02/04/2013 02:03 PM, alanarocha@sapo.pt wrote:
Boa tarde, estou a fazer um trabalho onde tenho de usar ifs gostaria de saber se o meu if está bem construido, senão o que devo alterar.
Ana, Tente a seguinte ordem clinica <- with(dados,ifelse(all(Jan>70,Fev>70,Mar>70),'3meses mais baixos','ok')) Isto deve resolver desde que você retire os "%" dos valores []s Tura
participantes (3)
-
alanarocha@sapo.pt
-
Bernardo Rangel Tura
-
Robert Iquiapaza