一列数据集的熵

Question

我有一个包含9个变量的数据集，我需要计算所有变量的熵。我使用R和熵计算的包是“熵” 这是我用过的代码：

entropy_variables<-array(0,dim=c(1,number of columns)
for(n in seq(1,number of columns)
{
entropy_variables[n]<-entropy(data[,n]
}

这是对的吗？ 请帮助。