我正在尝试创建一个创建并返回新函数的函数。我已经尝试过以下方法,但它不起作用。我想
myfunc <- function(W){
myfunc2=function(X){
Y=W%*%X
return(Y)
}
return(myfunc2)
}
我希望能够在 myfunc 之外使用 myfunc2。关于如何做到这一点有什么想法吗?
呃。是的,它确实。从我的终端:
> myfunc <- function(W){
+
+ myfunc2=function(X){
+ Y=W%*%X
+ return(Y)
+ }
+ return(myfunc2)
+ }
> myfunc()
function(X){
Y=W%*%X
return(Y)
}
<environment: 0x5034590>
我的意思是,如果你想真正能够调用它,你需要运行为:
myfunc2 <- myfunc()
但除此之外它似乎工作得很好。如果您想将其隐式分配给全局环境,而不必将其分配给对象:
myfunc <- function(W){
myfunc2=function(X){
Y=W%*%X
return(Y)
}
assign("name_you_want_in_the_global_environment",myfunc2, envir = .GlobalEnv)
return(invisible())
}
myfunc()
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)