for循环和write写文件

谢谢，还有一个问题，把K-S检验的结果存到list里，想要把D和p.value单独列出来存在不同的数组里，不知怎么做？因为数据框里面还有数据框，如下所示：
list(NULL, structure(list(statistic = structure(0.0538612087588489, .Names = "D"),
    p.value = 0.97740802397528, alternative = "two-sided", method = "One-sample Kolmogorov-Smirnov test",
    data.name = "tt[[i]]$data"), .Names = c("statistic", "p.value",
"alternative", "method", "data.name"), class = "htest"), structure(list(
    statistic = structure(0.0605517887095404, .Names = "D"),
    p.value = 0.937273513700836, alternative = "two-sided", method = "One-sample Kolmogorov-Smirnov test",
    data.name = "tt[[i]]$data"), .Names = c("statistic", "p.value",
"alternative", "method", "data.name"), class = "htest")）
求帮助，谢谢！