在循环中对来自多个数据帧的变量应用 Ks.test

Question

我有以下代码：

RW1_PD <- ks.test(df1$RWS, df2$RWS)

RW2_PD <- ks.test(df1$RWS, df3$RWS)

RW3_PD <- ks.test(df1$RWS, df4$RWS)

但是我想使用循环巧妙地执行此操作，我对 R 有点陌生，我正在努力将其转换为循环格式，或者可能使用 lapply ?

Answer 1

将数据帧放入列表中，然后使用 lapply -

list_df <- list(df1, df2, df3, df4)

result <- lapply(list_df, function(x) 
             lapply(list_df, function(x, y) ks.test(x$RWS, y$RWS)))

Apply Ks.test upon variables from multiple dataframes in a loop