Multiple IF statements - is there a better alternative?

An embedded and charset-unspecified text was scrubbed...
Name: not available
Url: https://stat.ethz.ch/pipermail/r-help/attachments/20050512/967d98b9/attachment.pl
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.
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

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.
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