if clause in data frame

Forgot:

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

before;
final1<-within(final,{flag<-ifelse(x1/m1>y1/n1, 1,0)})


----- Original Message -----
From: arun <smartpink111 at yahoo.com>
To: Joanna Zhang <zjoanna2013 at gmail.com>
Cc: R help <r-help at r-project.org>
Sent: Friday, March 29, 2013 1:47 PM
Subject: Re: if clause in data frame

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.

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