摘要:
001、 dat <- read.table("test.txt") dat idx <- vector() for (i in 1:nrow(dat)) { if ("AKCR02000001" %in% dat[i,]) { idx <- c(idx, i) } } idx dat[idx,] 阅读全文
摘要:
001、next(相当于continue, 跳过次轮循环) for (i in 1:5) { if (i %% 2 == 0) {next} ## 当i为偶数时,跳过次轮循环 cat(i,"test\n") } 002、break,终止当前程序 for (i in 1:5) { if (i %% 2 阅读全文
摘要:
001、 a <- c(3, 4, 8, 7, 2) b <- c(2, 4, 5, 8, 9) c <- 1:5 dat <- data.frame(a, b, c) ## 生成测试数据框 dat d <- dat[1,2] ## 默认 class(d) e <- dat[1,2, drop = 阅读全文