这段代码的作用是什么？

这段代码的作用是：

1. 使用`group_by()`函数对`crps.results`数据框按照`type`、`model`和`source`进行分组，计算每组的`crps`均值，并将结果保存到新的数据框`crps.sum`中。

2. 使用`rename()`函数对`crps.sum`数据框中的列名进行重命名，并使用`ifelse()`函数将`Source`列中的值替换为相应的名称，将结果保存到`crps.sum`数据框中。

3. 使用`tbl_df()`函数将`crps.sum`数据框转换为tibble对象。

4. 使用`mutate()`函数对`crps.sum`数据框中的`Model`列进行重命名，将`MS`替换为`MixSIAR`，将结果保存到`crps.sum.model`数据框中。

5. 使用`rename()`函数对`summary.stats`数据框中的列名进行重命名，将`Enc_50`重命名为`P50`，将`Enc_95`重命名为`P95`，将`W_IQR`重命名为`W50`，将`W_95`重命名为`W95`。

6. 使用`mutate()`函数对`summary.stats`数据框中的`Model`列进行重命名，将`MS`替换为`MixSIAR`，将结果保存到`summary.stats1`数据框中。