把打印在重複中的R

Question

請看下面的代碼中的R

i=1 
a1=function(x){ 
    print(i) 
    i=i+1 
    return(x^2)} 
a2=replicate(5,a1(2)) 

我希望有一個輸出1 2 3 4 5

誰能幫助我？但是我不想寫for-loops。我希望保持原樣的複製功能。感謝您的建議/幫助。

Answer 1

您可以通過全局變量賦值做到這一點：

i=1 
a1=function(x){ 
    print(i) 
    i<<-i+1 
    return(x^2)} 
a2=replicate(5,a1(2)) 
# [1] 1 
# [1] 2 
# [1] 3 
# [1] 4 
# [1] 5 

這是不是真的，你應該如何把它。

取決於你真正努力去做，這樣可以工作：

res <- sapply(1:5, print)