循環 R 中的列表

Question

如果列表的每個數據框，我想做一個操作。 我想對每個數據框中的一列執行 Kolmogorov-Smirnov (KS) 檢驗。 我正在使用下面的代碼，但它不起作用：

PDF_mean <- matrix(nrow = length(siteNumber), ncol = 4)
PDF_mean <- data.frame(PDF_mean)
names(PDF_mean) <- c("station","normal","gamma","gev")


listDF <- mget(ls(pattern="DSF_moments_"))
length(listDF)
i <- 1

for (i in length(listDF)) {

PDF_mean$station[i] <- siteNumber[i]
PDF_mean$normal[i] <- ks.test(list[i]$mean,"pnorm")$p.value
PDF_mean$gev[i] <- ks.test(list[i]$mean,"pgev")$p.value
PDF_mean$gamma[i] <- ks.test(list[i]$mean,"gamma")$p.value

}

有什么幫助嗎？

Answer 1

它不是length(listDF)而是seq_along(listDF)或1:length(listDF) （但是，它更適合seq_along ），因為length是單個值並且它沒有執行任何循環

for(i in seq_along(listDF)) {

  PDF_mean$station[i] <- listDF[[i]]$siteNumber
  PDF_mean$normal[i] <- ks.test(listDF[[i]]$mean,"pnorm")$p.value
  PDF_mean$gev[i] <- ks.test(listDF[[i]]$mean,"pgev")$p.value
  PDF_mean$gamma[i] <- ks.test(listDF[[i]]$mean,"gamma")$p.value
 }