小鲨鱼2018

摘要： 1、测试数据 root@PC1:/home/test2# cat test.txt 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 阅读全文

摘要： a <- 1:5 b <- letters[1:5] c <- LETTERS[1:5] d <- rep(1,5) dat1 <- data.frame(rbind(a,b,c)) dat2 <- data.frame(rbind(b,c,d)) dat1 dat2 dat3 <- rbind(d 阅读全文

摘要： 测试： test1 <- data.frame(v1 = 1:5, v2 = letters[1:5]) test1 test2 <- data.frame(v1 = 1:5, v2 = letters[1:5]) test2 test1 %in% test2 all(test1 == test2) 阅读全文

摘要： 1、测试数据 v1 <- c(7,1,10,9,2,8) v2 <- letters[1:6] test <- data.frame(v1,v2) test test2 <- test[order(test$v1),] test2 v3 <- as.character(c(7,1,10,9,2,8) 阅读全文

摘要： 1、 dat <- read.table("test.txt", header = F) dat dat$V2[dat$V2 == "<NA>"] = 100 dat dat$V2[dat$V2 == NA] = 100 dat dat$V2[is.na(dat$V2)] = 100 dat > d 阅读全文

摘要： 1、 root@PC1:/home/test2# ls test1.txt test2.txt root@PC1:/home/test2# cat test1.txt 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 root@P 阅读全文

摘要： 1、awk实现 root@PC1:/home/test2# ls test.txt root@PC1:/home/test2# cat test.txt ## 测试数据 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 root@ 阅读全文

摘要： 1、merge函数 dir() test1 <- read.table("test1.txt", header = F) test1 test2 <- read.table("test2.txt", header = F) test2 result <- merge(test1, test2, by 阅读全文

摘要： 1、软件下载，下载地址：https://github.com/genetics-statistics/GEMMA/releases 下载过程： root@PC1:/home/gemma_test# ls root@PC1:/home/gemma_test# pwd /home/gemma_test 阅读全文

摘要： 1、问题，下载压缩文件后，不能显示压缩文件的颜色（红色）,执行source ./bashrc后系统可以显示 问题如下，因此推测是系统启动时没有自动执行source ./bashrc 2、解决方法，在~/.bash_profile增加如下语句： if [ -f ~/.bashrc ]; then . 阅读全文