Hi,
You could also try:
res1<-sapply(y,function(i) {x1<- expand.grid(x,x);fun1<- function(a,op,b){ f1<-
match.fun(FUN=op); f1(a,b)};fun1(x1[,1],i,x1[,2])})
row.names(res1)<- row.names(res)
identical(res1,res)
#[1] TRUE
A.K.
----- Original Message -----
From: arun <smartpink...@yahoo.com>
To: R help <r-help@r-project.org>
Cc:
Sent: Wednesday, September 25, 2013 3:08 AM
Subject: Re: Computing calculation among two vectors
Hi,
Try:
x<- 1:4
y<- c("*","/","-","+")
res<-sapply(y,function(i) {x1<-expand.grid(x,x);
unlist(lapply(paste0(x1[,1],i,x1[,2]),function(u) eval(parse(text=u))))})
row.names(res)<- as.character(interaction(expand.grid(x,x),sep="_"))
head(res)
# * / - +
#1_1 1 1.0 0 2
#2_1 2 2.0 1 3
#3_1 3 3.0 2 4
#4_1 4 4.0 3 5
#1_2 2 0.5 -1 3
#2_2 4 1.0 0 4
A.K.
I have two vectors one numeric and another with operand.
Eg: x - 1,2,3,4 and y-"*", "/", "-", "+"
I need to calculate all the possible two combinations in x with
each of operand in y. As example, 1*2, 1/2, 1-2, 1+2, 1*3, 1/3....
Any help appreciated.
Regards
Hussain
______________________________________________
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.
