摘要:
(一) 1、测试 [root@centos79 test2]# ls source.txt [root@centos79 test2]# cat source.txt ## 首先准备了3个下载资源 https://s3.amazonaws.com/plink1-assets/plink_linux_ 阅读全文
摘要:
1、将连续两行数据合并为一行 dat <- read.table("outcome.ped") dat <- dat[,-(1:16)] dat result <- data.frame() ## 生成母版 for (i in 1:(nrow(dat)/2)) { ## 行数缩减1倍 temp1 < 阅读全文
摘要:
1、两列合并为1列 dat <- read.table("outcome.ped") dat <- dat[,-(1:6)] dat result <- data.frame(v1 = 1:(2 * nrow(dat))) ## 先生成合并后的框架,两列合并为1列,因此行数翻倍 for (i in 阅读全文