在R中创建决策表

Question

我是初学者使用R.我试图在卡方检验的基础上创建一个决策表。我已经采用了10列的决策表，并在条件属性（V1到V9）和决策属性（V10）之间应用了卡方检验。 如果卡方值小于0.05，我已经采用了那个特定的列。最后，我创建了一个决策表，其中列的卡方值小于0.05。

CODE：

decision.table <-SF.read.DecisionTable(filename = "style.dat", decision.attr = 10, indx.nominal = c(1, 10), stringsAsFactors=FALSE)
newdata<-0
for(i in 1:9)
{
tbl = table(decision.table[,i], decision.table[,10]) 
tabt<-chisq.test(tbl)
if(tabt[[3]]<0.05)
{
newdata<-decision.table[c(i)]
}
print(newdata)
}

一次显示单列。我想要一个包含所有列的完整表格，其chisquare值小于0.05。