[R] if clause in data frame

[arun]

Hi,


final<-data.frame()
   for (m1 in 4:10) {
       for (n1 in 4:10){  
           for (x1 in 0: m1) {
              for (y1 in 0: n1) {

final<- rbind(final,c(m1,n1,x1,y1))
res}}}}
 final1<-within(final,{flag<-ifelse(x1/m1>y1/n1, 1,0)})
 head(final1)
#  m1 n1 x1 y1 flag
#1  4  4  0  0    0
#2  4  4  0  1    0
#3  4  4  0  2    0
#4  4  4  0  3    0
#5  4  4  0  4    0
#6  4  4  1  0    1


Also, just by looking at your code, you have "flag" and "flap".

A.K.



________________________________
 From: Joanna Zhang <zjoanna2013 at gmail.com>
To: arun <smartpink111 at yahoo.com> 
Sent: Friday, March 29, 2013 10:56 AM
Subject: if clause in data frame
 

Why the if clause code not working here?

final<-data.frame()
   for (m1 in 4:10) {
       for (n1 in 4:10){  
           for (x1 in 0: m1) {
              for (y1 in 0: n1) {

if (x1/m1>y1/n1)  { flag<-1}
else {flap<-0}

final<-rbind(final, c(m1,n1,flag, x1,y1))
}}
}}
colnames(final)<-c("m1","n1","flag","x1","y1") 
final