尝试使用我自己的函数计算Kurtosis，但我的输出是＆＃34;数字（0）＆＃34;

Question

我正在尝试使用我自己的函数来计算Kurtosis，但我的输出是＆＃34; numeric（0）＆＃34;。我知道这与R中的索引系统有关。

这是我的代码：

function(data.new)
{

  data <- as.matrix(data.new)
  n <- nrow(data.new)

  for (i in 1:50) { kurtosis<-((1/n)*((sum((data[i,]-mean(data)))/sd(data)))) }
  a <- print(kurtosis)
  a
}

这是我的输出：

  

库尔特（state.x77 [＆＃34;霜＆＃34;]）   数字（0）

我正在尝试为一列数据的峰度获取单个值输出。