如何计算r中每一行的方差估计

Question

我需要在需要的地方写一个小程序询问用户并输入子区间数（2 个或更多）。将 TT 向量的元素分成给定数量的连接的、近似相等的子区间。计算每个子区间的方差估计。显示结果。使用 Bartlett 标准检验所有子区间方差相等的假设——备选方案“不相等”。任务很简单，但我不知道如何在每个间隔和没有循环的情况下找出方差估计。我的代码：

> TT
[1] 20.2 18.6 15.0 12.0 11.7 10.9  9.0 11.9 13.3  8.8  8.6  6.1  6.6  6.5 11.4
[16] 12.9  5.4  2.5  4.3  3.0

> n <- as.numeric(readline(prompt = "Enter court intervals: "))
Enter court intervals: 3
> n
[1] 3
> ints = split(TT, cut(seq_along(TT),n))
> ints
$`(0.981,7.33]`
[1] 20.2 18.6 15.0 12.0 11.7 10.9  9.0

$`(7.33,13.7]`
[1] 11.9 13.3  8.8  8.6  6.1  6.6

$`(13.7,20]`
[1]  6.5 11.4 12.9  5.4  2.5  4.3  3.0

然后我不知道如何在没有循环的情况下计算每个区间的方差估计

Answer 1

如果“循环”是指循环，请使用 lapply:

variance <- lapply(ints, var) # Or sapply(ints, var)

如何计算r中每一行的方差估计

how to calculate the variance estimate of each row in r

r