时间戳

首页 > 解决方案 > 循环后输出最小值

r - 循环后输出最小值

问题描述

这是我的代码：

for(i in 1:10000){
  table1<-table(toydata$A,toydata$B)
  toy <- toydata    # Work with a copy
  toy[] <- lapply(toydata, swapFun)
  table2<-table(toy$A,toy$B)
  print (c(i,sum(abs(table1-table2))))
  if((sum(abs(table1-table2)))<10) 
  {break}

}

如果循环 10000 次后， sum(abs(table1-table2))仍然是>10. 我希望函数输出最小值sum(abs(table1-table2))。

我该如何解决？谢谢。

标签： r

解决方案

我已经修好了。

mini<-10000
for(i in 1:1000){
  table1<-table(toydata$A,toydata$B)
  toy <- toydata    # Work with a copy
  toy[] <- lapply(toydata, swapFun)
  table2<-table(toy$A,toy$B)
  print (c(i,sum(abs(table1-table2))))
  if((sum(abs(table1-table2)))<10) 
  {break}
  mini<-min(mini,sum(abs(table1-table2)))


}
print(mini)

推荐阅读