0

从 pmap 调用函数会引发错误，因为参数不是自己传递的

尝试创建参数列表，但这也导致了错误

library(tidyverse)
library(dplyr)

periods <- c(10,11,12)
redemption <- rep(100,3)
firstcallDate <- c("2014-01-01","2015-01-01","2016-01-01")
testdf <- data.frame(redemption, periods, firstcallDate)
testdf$firstcallDate <- as.Date(testdf$firstcallDate)
testdf$CallSch <- NA

CallScheduleGen <- function (redemption,periods,firstcallDate, ...) {
  Price <- rep(as.double(redemption),periods)
  Date <- seq(firstcallDate, by = "1 month", length = periods)
  callSch <- data.frame(Price, Date)
  return(callSch)   
}

testdf$CallSch <- pmap_dfr(testdf,CallScheduleGen)

我期望在 testdf 数据框中的每个单元格中创建一个数据框。Pmap 似乎将输入参数作为列表而不是元素方式传递给函数。

任何人都可以提出一种方法，因为我需要将其矢量化而不是创建循环？

4

0 回答 0