R 如何从循环中的函数列表中提取参数

我有一个大数据集，我想一次执行几个函数，并为每个函数提取一个参数

测试数据集：

testdf <- data.frame(vy = rnorm(60), vx = rnorm(60) , gvar = rep(c("a","b"), each=30))

---

testdf您可以使用

res_list <- mynormtest(testdf)
res_list$a$shapiroTest@test@statistic
res_list$a$jarqueberaTest@test@statistic
res_list$a$lillieTest@test@statistic

希望这会有所帮助。
您可以通过以下方式获得各种测试输出中存储为“统计”的值：

res_list <- mynormtest(testdf)
res_list$a$shapiroTest@test@statistic
res_list$a$jarqueberaTest@test@statistic
res_list$a$lillieTest@test@statistic

希望这会有所帮助。
您可以通过以下方式获得各种测试输出中存储为“统计”的值：

res_list <- mynormtest(testdf)
res_list$a$shapiroTest@test@statistic
res_list$a$jarqueberaTest@test@statistic
res_list$a$lillieTest@test@statistic

希望这会有所帮助。
您可以通过以下方式获得各种测试输出中存储为“统计”的值：

res_list <- mynormtest(testdf)
res_list$a$shapiroTest@test@statistic
res_list$a$jarqueberaTest@test@statistic
res_list$a$lillieTest@test@statistic

希望这对您有所帮助。
关于您的函数
fgetparam
我认为这是一个很好的起点。以下是我的建议，并做了一些小的修改：

getparams2 <- function(myp) {
  m <- matrix(NA, nrow=length(myp), ncol=3)
  for (i in (1:length(myp))){
    m[i,] <- sapply(1:3,function(x) myp[[i]][[x]]@test$statistic)}
  return(m)
}

另一个很好的选择是

getparams2 <- function(myp){t(sapply(myp, sapply, function(x) x@test$statistic))}

getparams2关于函数
fgetparam
我认为这是一个很好的起点。以下是我的建议，并做了一些小的修改：

getparams2 <- function(myp) {
  m <- matrix(NA, nrow=length(myp), ncol=3)
  for (i in (1:length(myp))){
    m[i,] <- sapply(1:3,function(x) myp[[i]][[x]]@test$statistic)}
  return(m)
}

另一个很好的选择是

getparams2 <- function(myp){t(sapply(myp, sapply, function(x) x@test$statistic))}

getparams2关于函数
fgetparam
我认为这是一个很好的起点。以下是我的建议，并做了一些小的修改：

getparams2 <- function(myp) {
  m <- matrix(NA, nrow=length(myp), ncol=3)
  for (i in (1:length(myp))){
    m[i,] <- sapply(1:3,function(x) myp[[i]][[x]]@test$statistic)}
  return(m)
}

另一个很好的选择是

getparams2 <- function(myp){t(sapply(myp, sapply, function(x) x@test$statistic))}

getparams2关于函数
fgetparam
我认为这是一个很好的起点。以下是我的建议，并做了一些小的修改：

getparams2 <- function(myp) {
  m <- matrix(NA, nrow=length(myp), ncol=3)
  for (i in (1:length(myp))){
    m[i,] <- sapply(1:3,function(x) myp[[i]][[x]]@test$statistic)}
  return(m)
}

另一个很好的选择是

getparams2 <- function(myp){t(sapply(myp, sapply, function(x) x@test$statistic))}

getparams2非常感谢。我将尝试在for循环中添加此代码，例如获取一个包含组x统计信息的表。任何关于welcomeSpeed的建议都不是问题，但我有一个包含许多级别分组变量的大型数据集，还有一些测试需要计算。因此，只使用有趣的参数就可以得到一个简洁的结果。我试着用第二个函数来改进（见下面的答案），现在我想结合这两个函数，可能使用lappy。非常感谢。我将尝试在for循环中添加此代码，例如获取一个包含组x统计信息的表。任何关于welcomeSpeed的建议都不是问题，但我有一个包含许多级别分组变量的大型数据集，还有一些测试需要计算。因此，只使用有趣的参数就可以得到一个简洁的结果。我试着用第二个函数来改进（见下面的答案），现在我想结合这两个函数，可能使用lappy。非常感谢。我将尝试在for循环中添加此代码，例如获取一个包含组x统计信息的表。任何关于welcomeSpeed的建议都不是问题，但我有一个包含许多级别分组变量的大型数据集，还有一些测试需要计算。因此，只使用有趣的参数就可以得到一个简洁的结果。我试着用第二个函数来改进（见下面的答案），现在我想结合这两个函数，可能使用lappy。非常感谢。我将尝试在for循环中添加此代码，例如获取一个包含组x统计信息的表。任何关于welcomeSpeed的建议都不是问题，但我有一个包含许多级别分组变量的大型数据集，还有一些测试需要计算。因此，只使用有趣的参数就可以得到一个简洁的结果。我试着用第二个函数来改进（见下面的答案），现在我想结合这两个函数，可能使用lappy。非常好，谢谢你做了这个有用的推广。非常好，谢谢你做了这个有用的推广。非常好，谢谢你做了这个有用的推广。非常好，谢谢你做了这个有用的推广。