自编函数返回值问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

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


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

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：返回值

1. a<-1:5
   
2. b<-1:5
   
3. x<-expand.grid(a,b)
   
4. #a<-x[,1]
   
5. #b<-x[,2]
   
6. myfun<-function(x){
   
7. if(x[1]<x[2]){
   
8. result<-(x[1]-2)^2+x[2]/x[1];
   
9. lab<-data.frame(a=x[1],b=x[2],result=result);
   
10. return(lab)
    
11. }
    
12. }
    
13. y<-matrix(unlist(apply(x,1,myfun)),ncol=3,byrow=T)

复制代码

lz到底要实现什么？