【发布时间】:2020-02-14 16:10:22
【问题描述】:
我有一个从所有排列生成的数据框 final_matrix,而不替换 8。
require(tidyverse)
require(gtools)
set.seed(222)
x <- 0:7
totale <- permutations(8,8,0:7, repeats.allowed = F)
final_matrix <- as.data.frame(sample_n(as_tibble(totale), 120, replace = F))
我会确定每一行都是不同的,所以我正在尝试编写一个循环来检查每一行,所以1 vs 2, 1 vs 3... and then 2 vs 3 ...比较函数是:
isTRUE(all.equal(prova%>% slice(#rownumber), prova %>% slice(#rownumber)))
我尝试过的所有嵌套循环都不起作用,我该怎么办?
【问题讨论】:
-
nrow(final_matrix) == nrow(unique(final_matrix))够吗? -
谢谢!完美!
标签: r dataframe for-loop nested-loops