最大化函数
我们知道，EM 算法在两步之间迭代进行：期望步和最大化步。在上一个练习中，您已经创建了 expectation 函数。现在，请创建 maximization 函数，它接收包含概率的数据框，并输出均值与混合比例的估计值。
本练习是课程的一部分
R 中的混合模型
练习说明
通过补全示例代码来创建 maximization 函数。
交互式实操练习
通过完成这段示例代码来试试这个练习。
maximization <- function(___){
means_estimates <- data_with_probs %>%
summarise(mean_1 = sum(x * ___) / ___(prob_cluster1),
mean_2 = sum(x * ___) / ___(prob_cluster2)) %>%
as.numeric()
props_estimates <- data_with_probs %>%
summarise(proportion_1 = ___(prob_cluster1),
proportion_2 = 1 - ___) %>%
as.numeric()
list(means_estimates, props_estimates)
}