CAGR与变异函数问题

我在R方面的经验很少，目前正在尝试创建一个函数来计算我的财务数据（t=0和t=-2时的毛利润）的复合年增长率（CAGR）

我已经从excel文件（名为Forsog_orbis_til_rv2）导入了毛利，并希望在此数据框中创建一个名为CAGR的新变量。我使用了以下代码：

library(tibble);
library(dplyr)

grossprofit.t <- c(818000,883000,4141000,123000,5301000,4788000)
grossprofit.t2 <- c(2375000,2279000,-69000,5604000,3959000,6240000)
mydata <- data.frame(grossprofit.t,grossprofit.t2)

CAGR_formula <- function(FV, PV, yrs = 2) {
  values <- ((FV/PV)^(1/yrs)-1)
  return(values)
}

mydata %>%
  mutate(CAGR=CAGR_formula(grossprofit.t,grossprofit.t2,2)*100)`

print(mydata)

库（tibble）；
图书馆（dplyr）
t您需要将管道序列指定给变量

mydata <- mydata %>%
  mutate(CAGR=CAGR_formula(grossprofit.t2,grossprofit.t,2)*100)

print(mydata)

mydata%
突变（CAGR=CAGR_公式（grossprofit.t2，grossprofit.t，2）*100）
打印（mydata）