使用回归检验预测
在对数据进行可视化检查后，您决定再用回归分析来判断：从历史收入到预测收入，趋势是否出现了统计显著的变化。请记得，您需要创建趋势（trend）和结构突变（shift）变量。
在本练习中，您在上一个练习中创建的收入数据已保存在 rev 对象中。该数据包含两条时间序列：历史收入（hist_rev）和预测收入（proj_rev）。历史收入在前 10 年的历史期为正值，在预测期为 0；预测收入在前 10 年为 0，在预测期为正值。
本练习是课程的一部分
用 R 进行股权估值
练习说明
- 创建一条合并的收入序列，将历史与预测数据相加。
- 使用
seq()向rev_all_df添加趋势变量。 - 使用
ifelse()向rev_all_df添加结构突变变量。 - 对
rev_all关于trend与shift进行回归。
交互式实操练习
通过完成这段示例代码来试试这个练习。
# Create a data frame of single series
rev_all <- ___
rev_all_df <- data.frame(rev_all)
# Create Trend Variable
rev_all_df$trend <- seq(___, nrow(rev_all_df), ___)
# Create Shift Variable
rev_all_df$shift <- ifelse(rev_all_df$trend <= 7, ___, ___)
# Run regression
reg <- lm(___, data = rev_all_df)
summary(reg)