Error in weighted.var(x, w = weights1, bias = FALSE) : could not find function "weighted.var"

这个错误提示表明R无法找到名为weighted.var的函数。这是因为weighted.var函数不是R的内置函数，而是属于matrixStats包或stats包中的函数，你需要先加载这个包才能使用它。

如果你想使用matrixStats包中的weighted.var函数，可以使用如下代码加载它：

library(matrixStats)

然后就可以使用weighted.var函数计算加权样本方差了。例如，计算每一行的加权样本方差，可以使用如下代码：

weights <- c(0.1, 0.2, 0.3, 0.3, 0.1)
sample_var <- apply(touzi, 1, function(x) weighted.var(x, w=weights, bias=FALSE))

如果你想使用stats包中的weighted.var函数，可以使用如下代码加载它：

library(stats)

然后也可以使用weighted.var函数计算加权样本方差。需要注意的是，stats包中的weighted.var函数与matrixStats包中的weighted.var函数略有不同，它的参数顺序也不同。例如，计算每一行的加权样本方差，可以使用如下代码：

weights <- c(0.1, 0.2, 0.3, 0.3, 0.1)
sample_var <- apply(touzi, 1, function(x) weighted.var(x, w=weights, unbiased=TRUE))

其中，unbiased参数表示是否使用无偏估计，如果设置为TRUE，则返回无偏估计的加权样本方差。