如何将列表中的参数重复插入到函数中，直到列表为空？

Question

我正在使用 R 来模拟实验的结果，其中参与者在由其结果 (x) 和赢得结果的概率 (p) 定义的两个选项（A 或 B）之间进行选择。我有一个函数“f”，它将其参数收集在一个矩阵中，其中包含“x”（结果）和“p”（概率）列：

f <- function(x, p) {
    t <- matrix(c(x,p), ncol=2)
    colnames(t) <- c("x", "p") 
    t
}

我想使用这个函数来编译实验中所有试验的大列表。一种方法是：

t1 <- list(1A=f(x=c(10), p=c(0.8)), 
           1B=f(x=c(5), p=c(1)))

t2 <- list(2A=f(x=c(11), p=c(0.8)), 
           2B=f(x=c(7), p=c(1)))
.
.
.

tn <- list(nA=f(x=c(3), p=c(0.8)), 
           nB=f(x=c(2), p=c(1)))

Big_list <- list(t1=t1, t2=t2, ... tn=tn)

rm(t1, t2, ... tn)

然而，我有很多试验，这些试验可能会在未来的模拟中发生变化，为什么以这种方式重复自己是很棘手的。我在一个Excel文档中进行了试验，其结构如下： |选项 | x| p| |---- |------| -----| |一个 | 10 | 10 0.8 | 0.8 |乙| 7 | 1 | |一个 | 9 | 0.8 | 0.8 |乙| 5 | 1 | |... |...| ...|

我正在尝试执行某种循环，从每个“A”和“B”中获取“x”和“p”并将它们插入到函数 f 中，同时在每次迭代后向前跳过两行（以便每个选项仅插入一次）。这样，我想要获得一组列表 t1 到 tn，而不必对所有内容进行硬编码。这是我最好的（但仍然不是很好）尝试用伪代码解释它：

TRIALS <- read.excel(file_with_trials)

for n=1 to n=(nrows(TRIALS)-1) {
t(*PRINT 'n' HERE*) <- list(
    (*PRINT 'n' HERE*)A=
        f(x=c(*INSERT COLUMN 1, ROW n FROM "TRIALS"*), 
        p=c(*INSERT COLUMN 2, ROW n FROM "TRIALS"*)), 
    (*PRINT 'Z' HERE*)B=
        f(x=c(*INSERT COLUMN 1, ROW n+1 FROM "TRIALS"*), 
        p=c(*INSERT COLUMN 2, ROW n+1 FROM "TRIALS"*)))
}
Big_list <- list(t1=t1, t2=t2, ... tn=tn)

也就是说，我希望代码通过从每对行中绘制 x 和 p 直到我的 excel 文件为空来创建一组编号列表。

非常感谢任何帮助（以及有关如何改进此问题的反馈）！