Thanks toy Jim and Michael for their response. The suggestion to use regular
if/else was spot on.
> From: tyler_rin...@hotmail.com
> To: r-help@r-project.org
> Date: Sat, 30 Jul 2011 01:48:21 -0400
> Subject: [R] ifelse returns
>
>
> Greetings R Community,
>
> I am working with the ifelse function and it is returning something
> unexpected. In the code the line with the MODE1 assignment the output is a
> vector [1] 4 5 6 but when I put the MODE1 object into the ifelse function
> [R}'s output for MODE1 is the first number from the string (4). Why is this?
> Given the supplied vector of x I would assume both the MODE1 and ifelse()
> lines to return the same result. I would like the ifelse to return the entire
> vector [1] 4 5 6 as in the previous line.
>
> OS: Win7
> R version 2.14 beta
>
>
> #=======================================================================
> # Beginning of code
> #=======================================================================
> x<-c(2,3,4,4,5,5,6,6,8,10)
>
> df<-as.data.frame(table(x))
> df<-df[order(df$Freq),]
> m<-max(df$Freq)
> (MODE1<-as.vector(as.numeric(as.character(subset(df,Freq==m)[,1]))))
> ifelse(sum(df$Freq)/length(df$Freq)==1,warning("No Mode: Frequency of all
> values is 1", call. = FALSE),MODE1)
> #=======================================================================
> # End of code
> #=======================================================================
>
> R Console Output
> > (MODE1<-as.vector(as.numeric(as.character(subset(df,Freq==m)[,1]))))
> [1] 4 5 6
> > ifelse(sum(df$Freq)/length(df$Freq)==1,warning("No Mode: Frequency of all
> > values is 1", call. = FALSE),MODE1)
> [1] 4
>
> Thank you in advance,
> Tyler
> [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
