Zwracanie anonimowych funkcji z lapply - co jest nie tak?
Podczas próby utworzenia listy podobnych funkcji za pomocąlapply
, Uważam, że wszystkie funkcje na liście są identyczne i równe temu, jaki powinien być ostatni element.
Rozważ następujące:
pow <- function(x,y) x^y
pl <- lapply(1:3,function(y) function(x) pow(x,y))
pl
[[1]]
function (x)
pow(x, y)
<environment: 0x09ccd5f8>
[[2]]
function (x)
pow(x, y)
<environment: 0x09ccd6bc>
[[3]]
function (x)
pow(x, y)
<environment: 0x09ccd780>
Podczas próby oceny tych funkcji uzyskasz identyczne wyniki:
pl[[1]](2)
[1] 8
pl[[2]](2)
[1] 8
pl[[3]](2)
[1] 8
Co tu się dzieje i jak mogę uzyskać pożądany rezultat (prawidłowe funkcje na liście)?