r 中单样本方差的卡方检验

如何解决r 中单样本方差的卡方检验

我应该做一个单一的样本测试并回答关于样本方差的

variance <- 0.0001
sample <- c(8.99,9.01,8.98,9.00,9.01)
alpha <- 0.05
X <- t.test(x = sample,conf.level = 1 - alpha,alternative = "two.sided")
sum((sample[1:5] - X$estimate)^2) < variance

它返回 TRUE，但我认为这不是正确的方法。从我所见，我需要以某种方式使用 chisq.test()。我在样本上使用它并得到

    Chi-squared test for given probabilities

data:  sample
X-squared = 7.5572e-05,df = 4,p-value = 1

而且我不知道该怎么办。这是否意味着 100% 的可能性是因为 p 值等于 1？还是我做错了什么？任何帮助将不胜感激！