[R] Multiple IF statements - is there a better alternative?

[Suresh Krishna]

oops, i meant something more like:

TestValues <- c(0,1,2,4,9) #should be in increasing order
TestResults <- c(.95, .85, .7, NaN,0)

if (InternalMean==0) IntResult=1 else 
IntResult=TestResults[TestValues==max(TestValues[TestValues<=InternalMean])]

-s.

Suresh Krishna wrote:
> 
> are you looking for something like:
> 
> InternalMean <- mean(data1[,3])
> 
> TestValues <- c(0,1,2,4,9) #should be in increasing order
> TestResults <- c(.95, .85, .7, NaN,0)
> 
> if (InternalMean==0) IntResult=1 else 
> IntResult=TestResults[which(TestValues==max(TestValues[TestValues<InternalMean]))] 
> 
> 
> -s.
> 
> Jones, Glen R wrote:
> 
>> Hello,
>>
>> Rather than rely on a set of IF statements (as there could be many -
>> please see below)), could the following be done in a different/better
>> way?
>>
>> InternalMean <- mean(data1[,3])
>>
>> if (InternalMean == 0)
>>     Intresult = 1
>> if (InternalMean > 0 & InternalMean < 1)
>>     Intresult = .95
>> if (InternalMean >= 1 & InternalMean < 2)
>>     Intresult = .85
>> if (InternalMean >= 2 & InternalMean < 4)
>>     Intresult = .70
>> ...
>> if (InternalMean >= 9)
>>     Intresult = .0
>>
>> Thanks in advance
>>
>>
>> Glen Jones
>> Value Analyst
>> Industry Framework Governance
>> Telstra Corporation Limited
>>
>>> Tel: (03) 9634 7280
>>
>>
>> email: glen.jones at team.telstra.com
>>
>>
>>> The information contained in this e-mail message may be confidential.
>>> If you are not the intended recipient, any use of, interference with,
>>> disclosure or copying of this material is unauthorised and prohibited.
>>> If you have received this message in error, please notify me by reply
>>> e-mail and then delete the message.
>>>
>>
>>
>>     [[alternative HTML version deleted]]
>>
>> ______________________________________________
>> R-help at stat.math.ethz.ch mailing list
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guide! 
>> http://www.R-project.org/posting-guide.html
>>
> 
> ______________________________________________
> R-help at stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide! 
> http://www.R-project.org/posting-guide.html
>