我想请教关于R语言的类似问题。目前我正在函数之间传递巨大的矩阵。这些函数中的数据不会被更改,只是用到了这些矩阵。我的代码运行速度很慢。我想知道是否有其他选择,比如使用全局变量或面向对象的方式。谢谢。
我想请教关于R语言的类似问题。目前我正在函数之间传递巨大的矩阵。这些函数中的数据不会被更改,只是用到了这些矩阵。我的代码运行速度很慢。我想知道是否有其他选择,比如使用全局变量或面向对象的方式。谢谢。
R有类似于传递引用的功能。当你将一个对象赋值给另一个变量或传递给函数时,会创建另一个引用。但是,如果你通过其中一个引用修改了对象,那么就会实际创建一个副本。
f <- function(m) {
.Internal(inspect(m))
}
g <- function(m) {
m[1] <- 0
.Internal(inspect(m))
}
m <- matrix(1,1)
.Internal(inspect(m))
## @452e308 14 REALSXP g0c1 [NAM(2),ATT] (len=1, tl=0) 1
## ATTRIB:
## @42c8ee8 02 LISTSXP g0c0 []
## TAG: @2faaf98 01 SYMSXP g0c0 [MARK,LCK,gp=0x4000] "dim" (has value)
## @452e2d8 13 INTSXP g0c1 [NAM(2)] (len=2, tl=0) 1,1
# f shows that this is the same object (@452e308):
f(m)
## @452e308 14 REALSXP g0c1 [NAM(2),ATT] (len=1, tl=0) 1
## ATTRIB:
## @42c8ee8 02 LISTSXP g0c0 []
## TAG: @2faaf98 01 SYMSXP g0c0 [MARK,LCK,gp=0x4000] "dim" (has value)
## @452e2d8 13 INTSXP g0c1 [NAM(2)] (len=2, tl=0) 1,1
# g shows a newly allocated object (@3941998):
g(m)
## @3941998 14 REALSXP g0c1 [NAM(1),ATT] (len=1, tl=0) 0
## ATTRIB:
## @3b9fc80 02 LISTSXP g0c0 []
## TAG: @2faaf98 01 SYMSXP g1c0 [MARK,LCK,gp=0x4000] "dim" (has value)
## @3941ae8 13 INTSXP g0c1 [NAM(2)] (len=2, tl=0) 1,1
R语言中没有全局变量。如果你想使用传递引用的语义,你可以使用'data.table'包,这可能会有所帮助,或者你可以使用环境或ReferenceClasses。目前问题过于模糊,无法提供更多细节。