R和'plm‘包:如何使用lapply遍历'pdata.frame’对象的列

Question

我正在使用'plm‘包来执行一些模拟。我需要对给定数据集中的所有变量执行“内”转换。'for‘循环运行良好，而'lapply’版本则不行。我将数据集创建为：

library(plm)
data<- data.frame(replicate(10, runif(100)))
pdata <- pdata.frame(data, index=10)
varlist <- names(pdata)[names(pdata)!=("id") & names(pdata)!="time"]

我可以在单个变量上运行“内”转换，例如：Within(pdata$X1) works。或者我可以运行一个'for‘循环，它也可以工作：

pdata.with2 <- pdata[, varlist]
for(i in 1:ncol(pdata.with2)){
    pdata.with2[,i]= Within(pdata[,i])
}

lappy版本失败：

pdata.with  <-  lapply(pdata[, varlist], Within)

并给出错误："Error in UseMethod(“gives”)：没有适用于"c('double'，'numeric')“类的对象的适用方法。似乎'lapply‘循环遍历变量的方式遗漏了使类"pseries”“数值”的列的一些属性。

class(pdata$X1)

给出

[1] "pseries" "numeric"

而

lapply(pdata[, varlist], class)

给出

$X1
[1] "numeric"
...

我的问题是:有没有办法在'pdata.frame‘对象上使用'lapply’？