Question

我的代码出现了更新问题，希望有人能够更熟悉＆＃34;功能＆＃34;在R中将能够弄明白。正如你在这里看到的变量＆＃34; R＆＃34;更改，并且在FuncTest中调用该变量时，仅使用2.0的R值。这就是为什么前3个值产生所需输出然后它从那里下山的原因。如何修改？

 R <- t(c(2.05, 2.05, 2.05, 2.55, 2.55, 2.55, 2.95, 2.95, 2.95))
 P <- 6447.88

EnvTest <- new.env()
EnvTest$Orig <- 548453.5

FuncTest <- function(pp){
  EnvTest$Orig <- EnvTest$Orig-(P-EnvTest$Orig*R[pp]/1200)
  return(EnvTest$Orig)
}
Test<- rbind(EnvTest$Orig,
                do.call(rbind,lapply(1:9, FuncTest)))
x <- t(Test)
x

这给出了输出：

    [,1]     [,2]     [,3]     [,4]     [,5]     [,6]     [,7]     [,8]     [,9]    [,10]
[1,] 548453.5 542942.6 537422.2 531892.4 526574.8 521245.9 515905.7 510726.1 505533.7 500328.6

所需的输出是：

    [,1]   [,2]   [,3]   [,4]   [,5]   [,6]   [,7]   [,8]   [,9]  [,10]
[1,] 548453 542942 537422 532116 526799 521470 516304 511126 505934 500941

更新

我正在尝试使用EnvTest $ Orig的更新值来计算10个不同值的EnvTest $ Orig。为此，我使用变量＆＃34; R＆＃34;。＆＃34; x＆＃34;的输出正确地产生前三个结果。但正如您所看到的，在前三个输入从2.05到2.55之后，变量R发生了变化。我的功能是没有正确使用新的＆＃34; R＆＃34;值并继续使用2.05而不是2.55。这在下面的代码中显示，它试图计算所需输出中的第4列。很明显，＆＃34; Proof2＆＃34;做得恰到好处＆＃34; Proof＆＃34;演示我的函数只使用变量＆＃34; R＆＃34;的第一个实例。

Proof <- 537422-(P-(537422*2.05/1200))
Proof

其中给出了531892.2的答案，但它应该是532116，如下所示。

 Proof2 <- 537422-(P-(537422*2.55/1200))
 Proof2

更新第2轮

该功能没有任何问题，而是变量＆＃34; R＆＃34;这就是为什么我无法获得所需的输出。非常感谢RHertel。

Answer 1

我仍然不明白为什么你认为你的功能无法正常工作。作为检查，您可以在每次迭代时打印出相关变量：

R <- c(2.05, 2.05, 2.05, 2.55, 2.55, 2.55, 2.95, 2.95, 2.95)
P <- 6447.88
EnvTest <- new.env() 
EnvTest$Orig <- 548453.5
FuncTest <- function(pp){
  EnvTest$Orig <- EnvTest$Orig-(P-EnvTest$Orig*R[pp]/1200)
  cat("pp=",pp,"\n")
  cat("R[pp]=",R[pp],"\n")
  cat("EnvTest$Orig",EnvTest$Orig,"\n")
  return(EnvTest$Orig)
}
Test <- sapply(1:9, FuncTest)
#pp= 1 
#R[pp]= 2.05 
#EnvTest$Orig 542942.6 
#pp= 2 
#R[pp]= 2.05 
#EnvTest$Orig 537422.2 
#pp= 3 
#R[pp]= 2.05 
#EnvTest$Orig 531892.4 
#pp= 4 
#R[pp]= 2.55 
#EnvTest$Orig 526574.8 
#pp= 5 
#R[pp]= 2.55 
#EnvTest$Orig 521245.9 
#pp= 6 
#R[pp]= 2.55 
#EnvTest$Orig 515905.7 
#pp= 7 
#R[pp]= 2.95 
#EnvTest$Orig 510726.1 
#pp= 8 
#R[pp]= 2.95 
#EnvTest$Orig 505533.7 
#pp= 9 
#R[pp]= 2.95 
#EnvTest$Orig 500328.6

使用R中的函数更新问题

1 个答案: