摘要:
001、 c1 <- paste0("snp", sample(1:20, 6)) c1 sort(c1) c1[order(c1)] library(gtools) ## 使用gtools包中的函数 mixedsort(c1) c1[mixedorder(c1)] 阅读全文
摘要:
001、 dir() dat <- read.table("outcome.ped") temp <- dat temp temp$id1 <- "A" temp$id2 <- "C" temp$id3 <- "G" temp$id4 <- "T" temp <- t(temp) result <- 阅读全文
摘要:
001、 a <- 1:3 b <- letters[1:3] c <- LETTERS[1:3] d <- rep("K",3) vx <- paste(a, b, c, sep = "_") vx dat <- data.frame(vx, d) ## 测试数据框 dat library(tid 阅读全文
摘要:
001、 a <- 1:3 b <- letters[1:3] c <- LETTERS[1:3] d <- rep("K",3) dat <- data.frame(a, b, c, d) ## 生成测试数据框 dat library(tidyr) dat1 <- unite(dat, "cxx" 阅读全文