Re: [R] 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/m1y1/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 zjoanna2...@gmail.com
To: arun smartpink...@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/m1y1/n1) { flag-1}
else {flap-0}
final-rbind(final, c(m1,n1,flag, x1,y1))
}}
}}
colnames(final)-c(m1,n1,flag,x1,y1)
final
__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
Re: [R] if clause in data frame
Forgot:
colnames(final)- c(m1,n1,x1,y1)
before;
final1-within(final,{flag-ifelse(x1/m1y1/n1, 1,0)})
- Original Message -
From: arun smartpink...@yahoo.com
To: Joanna Zhang zjoanna2...@gmail.com
Cc: R help r-help@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/m1y1/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 zjoanna2...@gmail.com
To: arun smartpink...@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/m1y1/n1) { flag-1}
else {flap-0}
final-rbind(final, c(m1,n1,flag, x1,y1))
}}
}}
colnames(final)-c(m1,n1,flag,x1,y1)
final
__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
Re: [R] if clause in data frame
On Mar 29, 2013, at 10:47 AM, arun wrote:
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/m1y1/n1, 1,0)})
That looks likely to be extremely slow. 'rbind.data.frame' is notoriously slow
when applied iteratively in loops.
Couldn't this just be:
dat - expand.grid(m1 = 4:10, n1 = 4:10, x1 = 0: m1, y1 = 0: n1)
final= within(dat, flag=as.numeric( x1/m1y1/n1) )
--
David.
head(final1)
# m1 n1 x1 y1 flag
#1 4 4 0 00
#2 4 4 0 10
#3 4 4 0 20
#4 4 4 0 30
#5 4 4 0 40
#6 4 4 1 01
Also, just by looking at your code, you have flag and flap.
A.K.
From: Joanna Zhang zjoanna2...@gmail.com
To: arun smartpink...@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/m1y1/n1) { flag-1}
else {flap-0}
final-rbind(final, c(m1,n1,flag, x1,y1))
}}
}}
colnames(final)-c(m1,n1,flag,x1,y1)
final
David Winsemius
Alameda, CA, USA
__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
Re: [R] if clause in data frame
Yes, that is better.
I just copied the same function that the OP used.
A.K.
From: David Winsemius dwinsem...@comcast.net
To: arun smartpink...@yahoo.com
Cc: Joanna Zhang zjoanna2...@gmail.com; R help r-help@r-project.org
Sent: Friday, March 29, 2013 4:46 PM
Subject: Re: [R] if clause in data frame
On Mar 29, 2013, at 10:47 AM, arun wrote:
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/m1y1/n1, 1,0)})
That looks likely to be extremely slow. 'rbind.data.frame' is notoriously slow
when applied iteratively in loops.
Couldn't this just be:
dat - expand.grid(m1 = 4:10, n1 = 4:10, x1 = 0: m1, y1 = 0: n1)
final= within(dat, flag=as.numeric( x1/m1y1/n1) )
--
David.
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 zjoanna2...@gmail.com
To: arun smartpink...@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/m1y1/n1) { flag-1}
else {flap-0}
final-rbind(final, c(m1,n1,flag, x1,y1))
}}
}}
colnames(final)-c(m1,n1,flag,x1,y1)
final
David Winsemius
Alameda, CA, USA
__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
Re: [R] if clause in data frame
On Mar 29, 2013, at 1:48 PM, arun wrote:
Yes, that is better.
I just copied the same function that the OP used.
A.K.
From: David Winsemius dwinsem...@comcast.net
To: arun smartpink...@yahoo.com
Cc: Joanna Zhang zjoanna2...@gmail.com; R help r-help@r-project.org
Sent: Friday, March 29, 2013 4:46 PM
Subject: Re: [R] if clause in data frame
On Mar 29, 2013, at 10:47 AM, arun wrote:
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/m1y1/n1, 1,0)})
That looks likely to be extremely slow. 'rbind.data.frame' is notoriously
slow when applied iteratively in loops.
Couldn't this just be:
dat - expand.grid(m1 = 4:10, n1 = 4:10, x1 = 0: m1, y1 = 0: n1)
final= within(dat, flag=as.numeric( x1/m1y1/n1) )
This may be one of those instances where = is not an acceptable replacement
for -. I get an error with that code whereas I get the desired result with:
final= within(dat, flag - as.numeric( x1/m1y1/n1) )
--
David.
head(final1)
# m1 n1 x1 y1 flag
#1 4 4 0 00
#2 4 4 0 10
#3 4 4 0 20
#4 4 4 0 30
#5 4 4 0 40
#6 4 4 1 01
Also, just by looking at your code, you have flag and flap.
A.K.
From: Joanna Zhang zjoanna2...@gmail.com
To: arun smartpink...@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/m1y1/n1) { flag-1}
else {flap-0}
final-rbind(final, c(m1,n1,flag, x1,y1))
}}
}}
colnames(final)-c(m1,n1,flag,x1,y1)
final
David Winsemius
Alameda, CA, USA
__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
Re: [R] if clause in data frame
HI,
I am not sure I understand it correctly.
Should this (m1*x1/m1) +n1*y1/n1) /(m1+n1) be (x1+y1)/(m1+n1)?
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))
colnames(final)- c(m1,n1,x1,y1)
final1- within(final,{flag- as.numeric((x1/m1)(y1/n1));p11-ifelse(flag==1,
(x1+y1)/(m1+n1),x1/m1);p12- ifelse(flag==1,(x1+y1)/(m1+n1),y1/n1)})
If you meant four new variables p11, p12, P11, P12,
then:
finalNew-within(final,{flag- as.numeric((x1/m1)(y1/n1))})
lst1-lapply(split(finalNew,finalNew$flag),function(x)
{xNew-x;if(all(xNew$flag==0)) within(xNew,{P11-x1/m1;P12- y1/n1}) else
within(xNew,{p11- (x1+y1)/(m1+n1); p12- p11})})
library(plyr)
join_all(lst1,type=full)
head(join_all(lst1,type=full))
# m1 n1 x1 y1 flag P12 P11 p12 p11
#1 4 4 0 0 0 0.00 0.00 NA NA
#2 4 4 0 1 0 0.25 0.00 NA NA
#3 4 4 0 2 0 0.50 0.00 NA NA
#4 4 4 0 3 0 0.75 0.00 NA NA
#5 4 4 0 4 0 1.00 0.00 NA NA
#6 4 4 1 1 0 0.25 0.25 NA NA
A.K.
From: Joanna Zhang zjoanna2...@gmail.com
To: arun smartpink...@yahoo.com
Sent: Friday, March 29, 2013 2:58 PM
Subject: Re: if clause in data frame
thanks! What if I need to put more statement in if and else braces, like
if ((x1/m1) (y1/n1)) {
p11-(m1*x1/m1 + n1*y1/n1)/(m1+n1)
p12-p11
}
else {
P11- x1/m1
P12- y1/n1
}
On Fri, Mar 29, 2013 at 12:47 PM, arun smartpink...@yahoo.com wrote:
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/m1y1/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 zjoanna2...@gmail.com
To: arun smartpink...@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/m1y1/n1) { flag-1}
else {flap-0}
final-rbind(final, c(m1,n1,flag, x1,y1))
}}
}}
colnames(final)-c(m1,n1,flag,x1,y1)
final
__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
