摘要: library(data.table)ID <- c(NA,1,2,2)IDTime <- c(1,2,NA,1)TimeX1 <- c(5,3,NA,2)X1X2 <- c(NA,5,1,4)X2mydata <- data.table(ID,Time,X1,X2) mydata ```````` 阅读全文
posted @ 2016-12-19 13:57 qinqinyang 阅读(2679) 评论(0) 推荐(0) 编辑
摘要: 1.首先转被数据A1:C6 2.公式G1:L7 SUMPRODUCT(($G2&H$1=$A$1:$A$6&$B$1:$B$6)*($C$1:$C$6)) 阅读全文
posted @ 2016-12-16 11:33 qinqinyang 阅读(1248) 评论(0) 推荐(0) 编辑
摘要: 首先做出下面的基因间相互关系图 1.准备sif文件 data.sif 网络数据文件 gene1 pp gene2 gene3 gene4 gene5 gene6 gene7 gene8 gene9 node.txt 网络属性文件 gene expgene1 0.2gene2 0.3gene3 0.7 阅读全文
posted @ 2016-12-08 20:40 qinqinyang 阅读(7792) 评论(0) 推荐(0) 编辑
摘要: 表1:sheet1 1). 在表1中找出ID号位0928的基因相对应的数值 在相对应的单元格输入:B2=VLOOKUP(A:A,Sheet1!A:D,3,0) 既可以得到: ··································· 阅读全文
posted @ 2016-10-17 18:37 qinqinyang 阅读(1182) 评论(0) 推荐(0) 编辑
摘要: Sub 按钮1_Click() Application.ScreenUpdating = False arr = Range("a1:c" & [a65536].End(xlUp).Row) [g1].CurrentRegion.ClearContents Cells(1, "g") = arr(1 阅读全文
posted @ 2016-10-14 18:21 qinqinyang 阅读(320) 评论(0) 推荐(0) 编辑
摘要: awk中分隔符转换的问题(转) 在awk中明明用OFS重新设置了分隔符,为什么在输出的时候还是原样输出呢! 他是这么写的: echo 1,2,3,4 | awk 'BEGIN{FS=",";OFS="|"}{print}'”。 其实在awk中,只设置分隔符而不改变文件的内容,重新设置的分隔符是不会生 阅读全文
posted @ 2016-10-12 17:04 qinqinyang 阅读(1624) 评论(0) 推荐(0) 编辑
摘要: Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> ActiveSheet.Name Then X = Range("A65536").End(x 阅读全文
posted @ 2016-10-12 16:40 qinqinyang 阅读(383) 评论(0) 推荐(0) 编辑
摘要: Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String Application.Scr 阅读全文
posted @ 2016-10-12 16:30 qinqinyang 阅读(359) 评论(0) 推荐(0) 编辑
摘要: 要求:将sheet1中的数据按照公司名称拆分到不同的工作表 使用VBA: 1:打开sheet1的查看代码 2:运行 ········································&# 阅读全文
posted @ 2016-09-25 19:23 qinqinyang 阅读(285) 评论(0) 推荐(0) 编辑
摘要: library(ConsensusClusterPlus)library(factoextra)library(cluster)library(NbClust)# 读入数据data = read.table("T_405_ex.txt",header = T, row.names = 1)b = m 阅读全文
posted @ 2016-09-19 09:57 qinqinyang 阅读(6574) 评论(0) 推荐(0) 编辑