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: [EMAIL PROTECTED]


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

______________________________________________
[email protected] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html



______________________________________________
[email protected] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html



______________________________________________ [email protected] mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html

Reply via email to