不增加R中的循环

Question

我想为我的数据库中的每一列计算一些描述性统计信息，但是当我输入此代码时，它会保留在第一列中。我该怎么做才能增加专栏？

Stat_Desc =function(x)
{
k<-ncol(x)
for(i in 1:k)
{
if(is.numeric(x[,i])| is.integer(x[,i]))
{}
else
{}
}
}

Answer 1

我不明白如果代码没有产生任何输出，你怎么能告诉你代码不会增加。

采取合乎逻辑的步骤，如果您只想测试每列是否为数字，您可以：

sapply(x, is.integer)

Answer 2

我解决了这个问题。我没有写打印，而是编写了返回，这就是为什么代码没有增加的原因。 无论如何，谢谢大家！