a<-1:5
b<-1:5
x<-expand.grid(a,b)
a<-x[,1]
b<-x[,2]
myfun<-function(x){
if(x[1]<x[2]){
result<-(x[1]-2)^2+x[2]/x[1];
lab<-data.frame(x[1],x[2],result);
return(lab)
}
}
y<-apply(x,1,myfun)
程序语句如上
希望得到的结果是
a   b    result
1  2       3
1  3       4
2  3      1.5
……这种形式，而现在得到的结果是
[[1]]
NULL

[[2]]
NULL

[[3]]
NULL

[[4]]
NULL

[[5]]
NULL

[[6]]
     x.1. x.2. result
Var1    1    2      3

[[7]]
NULL

[[8]]
NULL

[[9]]
NULL

[[10]]
NULL

[[11]]
     x.1. x.2. result
Var1    1    3      4

[[12]]
     x.1. x.2. result
Var1    2    3    1.5

[[13]]
NULL

[[14]]
NULL

[[15]]
NULL

[[16]]
     x.1. x.2. result
Var1    1    4      5

[[17]]
     x.1. x.2. result
Var1    2    4      2

[[18]]
     x.1. x.2.   result
Var1    3    4 2.333333

[[19]]
NULL

[[20]]
NULL

[[21]]
     x.1. x.2. result
Var1    1    5      6

[[22]]
     x.1. x.2. result
Var1    2    5    2.5

[[23]]
     x.1. x.2.   result
Var1    3    5 2.666667

[[24]]
     x.1. x.2. result
Var1    4    5   5.25

[[25]]
NULL


求教大神怎么修改？？？万分感谢！！！