出来了呜呜呜，帮我把每个矩阵的一到三列都提出来吧谢谢

好的，以下是提取每个矩阵的第一到第三列的代码：

# 提取ele_ts2矩阵的第一到第三列
ele_ts2_col1_to_3 <- pred$fcst$ele_ts2[, 1:3]

# 提取Power_ts2矩阵的第一到第三列
Power_ts2_col1_to_3 <- pred$fcst$Power_ts2[, 1:3]

# 提取income_ts2矩阵的第一到第三列
income_ts2_col1_to_3 <- pred$fcst$income_ts2[, 1:3]

这将分别把`ele_ts2`、`Power_ts2`和`income_ts2`矩阵中的第一到第三列赋值给`ele_ts2_col1_to_3`、`Power_ts2_col1_to_3`和`income_ts2_col1_to_3`这三个新矩阵。