计算r studio中所有样本的方差

计算r studio中所有样本的方差,r,R,我从一个数据集中随机抽取了30个样本。我需要计算每个样本的样本均值和样本方差,并将它们排列在一个表中,表中有3列标题为“样本”、“均值”和“方差” 我的数据集是: lab6data <- c(2,5,4,6,7,8,4,5,9,7,3,4,7,12,4,10,9,7,8,11,8, 6,13,9,6,7,4,5,2,3,10,13,4,12,9,6,7,3,4,2) lab6data您可以使用apply计算每行的方差: apply(observations,

我从一个数据集中随机抽取了30个样本。我需要计算每个样本的样本均值和样本方差,并将它们排列在一个表中,表中有3列标题为“样本”、“均值”和“方差”

我的数据集是:

lab6data <- c(2,5,4,6,7,8,4,5,9,7,3,4,7,12,4,10,9,7,8,11,8,
              6,13,9,6,7,4,5,2,3,10,13,4,12,9,6,7,3,4,2)

lab6data您可以使用
apply
计算每行的方差:

apply(observations, 1, var)
或者使用
matrixStats
包中的
rowVars


请注意,
matrixStats::rowVars
将比
apply(…,1,var)
稍微快一些(见下面的@HenrikB评论),这与
rowMeans
apply(…,1,mean)
快得多。您可以使用
apply
计算每行的方差:

apply(observations, 1, var)
或者使用
matrixStats
包中的
rowVars


请注意,
matrixStats::rowVars
将比
apply(…,1,var)
稍微快一些(见下面的@HenrikB评论),这与
rowMeans
apply(…,1,means)
快得多,我们可以使用
pmap
data.frame
的每一行上应用函数

library(purrr)
varS <- pmap_dbl(as.data.frame(observations), ~ var(c(...)))
cbind(observations, varS)
库(purrr)

varS我们可以使用
pmap
data.frame

library(purrr)
varS <- pmap_dbl(as.data.frame(observations), ~ var(c(...)))
cbind(observations, varS)
库(purrr)

varS非常感谢您的快速响应。有没有办法一次获得所有样本的方差并将其添加到table@SadieKelsey“有没有办法一次获得所有样本的方差并将其添加到表中?”我不确定我是否理解<代码>应用(观察值,1,var)
将返回与
nrow(观察值)
长度相同的向量。您可以将此向量存储为一个新列(例如,
observations$rowVar=apply(observations,1,var)
),但我认为最好将数据和摘要统计信息保存在单独的对象/表中;e、 g.do
install.packages(“matrixStats”)
。我按照你说的安装了它。它已成功安装,但仍表示没有名为rowVars的函数。在我键入时出现的下拉列表中,也没有rowVars作为建议。非常感谢您的快速响应。有没有办法一次获得所有样本的方差并将其添加到table@SadieKelsey“有没有办法一次获得所有样本的方差并将其添加到表中?”我不确定我是否理解<代码>应用(观察值,1,var)
将返回与
nrow(观察值)
长度相同的向量。您可以将此向量存储为一个新列(例如,
observations$rowVar=apply(observations,1,var)
),但我认为最好将数据和摘要统计信息保存在单独的对象/表中;e、 g.do
install.packages(“matrixStats”)
。我按照你说的安装了它。它已成功安装,但仍表示没有名为rowVars的函数。在我打字时出现的下拉列表中,也没有rowVars作为建议。可能重复的可能重复的我也会尝试这样做谢谢你的帮助。这很有用。我也会尝试这样做的。谢谢你的帮助。这是非常有用的。
observations <- matrix(lab6data, 10, 4)