求解释function不运行全部

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

各位大神，我为了读取产生数据的models写了一段代码，但是单独拿出来运行没有问题，整体运行系统只运行部分，也并没有报错，想请教是怎么回事？


outputDir <- "D:/data sim/output/"

j <- 1
repNum <- 1
Res_All <- matrix(0, 2, 4)

RepAna <- function(i){
  while (j <= repNum){
    file <- paste("D:/data sim/output/CFA_", i, "_", j, ".out", sep = "")
    ModRes <- readModels(file)
    cfi <- 0
    tli <- 0
    rmsea <-0
    a <- 0 #a is the number of fully proper model
    CR <- 0
    if (is.null(ModRes$warnings[1][[1]]) & is.null(ModRes$errors[1][[1]])){
      #exclude non-converge results
      a <- a+1
      if (ModRes$summaries$CFI > 0.95){
        cfi <- cfi+1
      }
      if (ModRes$summaries$TLI > 0.95){
        tli <- tli+1
      }
      if (ModRes$summaries$RMSEA_Estimate < 0.08){
        rmsea <- rmsea+1
      }
      MRs <- ModRes$parameters$unstandardized
      MA <- MRs[,c(2,3)]
      MA1 <- subset(MA, param == "CR")
      CR <- MA1$est + CR
    }
    j <- j+1
  }
  CFI <- cfi/repNum
  TLI <- tli/repNum
  RMSEA <- rmsea/repNum
  CR <- CR/a
  Res_All[i,] <- cbind(CFI, TLI, RMSEA, CR)
}

for (i in 1:2){
  RepAna(i)
}


系统运行只显示
Reading model:  D:/data sim/output/CFA_1_1.out
Reading model:  D:/data sim/output/CFA_2_1.out
但是ModRes却没有显示，如果一句一句的运行又没有问题。请问各位大神问题到底在哪里呀？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：整体运行 运行系统

你是不是要加一下`return()`?