On Sep 14, 2009, at 3:02 PM, Jorge Ivan Velez wrote:
Hi Edward,
Here is a suggestion:
a = c(4,5,1,7,8,12,39)
b = c(3,7,8,4,7,25,78)
d <- a-b
d[which(d>0)]
# [1] 1 3 1
#Or even:
d <- (a-b)[which((a-b)>0)]
d
#[1] 1 3 1
HTH,
Jorge
On Mon, Sep 14, 2009 at 2:50 PM, Edward Chen <edche...@gmail.com>
wrote:
I have a code:
*a = c(4,5,1,7,8,12,39)
b = c(3,7,8,4,7,25,78)
d =a-b
for(i in 1:length(d)){
if(d[i]>0){x = list(d[i])
print(x)}
else{y = list(d[i])
print(y)}}
the results are:
[[1]]
[1] 1
[[1]]
[1] -2
[[1]]
[1] -7
[[1]]
[1] 3
[[1]]
[1] 1
[[1]]
[1] -13
[[1]]
[1] -39
which will tell me what d is. but is it possible to output the
order in
which the difference is in the vector d?
for example I would want to see x = 1,3,1 and they are from d[1],
d[4],
d[5].
This is just a crude example I thought of to help me do something
more
complicated.
David Winsemius, MD
Heritage Laboratories
West Hartford, CT
______________________________________________
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.
