我如何使用loop(for)

时间:2017-04-23 06:57:32

标签: r function loops for-loop qcc

我想在R中使用循环函数,代码如下:

pc01 <- qcc(matrix(cbind(dta02[1:length(dta02)-1], dta02[2:length(dta02)]), ncol = 2), type = "R")
pc02 <- qcc(matrix(cbind(dta02[1:length(dta02)-1], dta02[2:length(dta02)]), ncol = 2), type = "R")
pc03 <- qcc(matrix(cbind(dta03[1:length(dta03)-1], dta03[2:length(dta03)]), ncol = 2), type = "R")

为了方便起见,我使用了'function'

myqccF <- function(n)
{
 qcc(matrix(cbind(n[1:length(n)-1], n[2:length(n)]), ncol = 2), type = "R")
}

然后,如何使用'myqccF'函数进行循环,如下面的代码?

qc01 <- myqccF(dta01)
qc02 <- myqccF(dta02)
qc03 <- myqccF(dta03)

1 个答案:

答案 0 :(得分:0)

你还有一个循环,现在它是一个包含你的功能的循环。

for (i in 1:3) assign(paste0("qc0", i), myqccF(get(paste0("qc0", i))))