# # # R代码从装饰图案的goProfiles来源。Rnw“# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块1号:requiredFiles1 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #选项(宽度= 60,警告= 0,数字= 5)要求(goProfiles) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块2号:prostateIds # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #要求(goProfiles)数据(prostateIds) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块3号:basicProfilesMF # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #威尔士。< -曼氏金融basicProfile (welsh01EntrezIDs(1:10 0),到=“曼氏金融”,水平= 2,orgPackage =“org.Hs.eg.db”)。< -曼氏金融basicProfile (singh01EntrezIDs(1:10 0),到=“曼氏金融”,水平= 2,orgPackage =“org.Hs.eg.db”) welsh.singh。MF < -mergeProfilesLists(威尔士。MF,辛格。MF profNames = c(“威尔士”、“辛格”))printProfiles (welsh.singh。MF,比例= TRUE) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块数量4:plotProfileMF # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # plotProfiles(威尔士。MF, aTitle = "威尔士(2001)。前列腺癌数据”)# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块5号:basicProfilesANY # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #威尔士<——basicProfile (welsh01EntrezIDs(1:10 0) =“任何”,上水平= 2,orgPackage =“org.Hs.eg.db”) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块6号:comparevisual # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # plotProfiles (welsh.singh。MF、比例= T aTitle =“威尔士vs辛格”,传说= T) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块7号:compareDiff1 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # compared.welsh.singh.01。MF < compareGeneLists (welsh01EntrezIDs [1:10], singh01EntrezIDs(1:10 0)到=“曼氏金融”,水平= 2,orgPackage =“org.Hs.eg.db”)打印(compSummary (compared.welsh.singh.01.MF)) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块8号:fisherGOProf1 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # list1 < - welsh01EntrezIDs[1:10]用于< - singh01EntrezIDs [1:10] commProf < - basicProfile(相交(list1,用于),到=“曼氏金融”,水平= 2,orgPackage =“org.Hs.eg.db”)美元MF fisherGOProfiles(威尔士。MF MF美元,辛格。MF MF美元,commProf方法=“福尔摩斯”)# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块9号:compareEquiv1 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #数据(prostateIds) expandedWelsh < - expandedProfile (welsh01EntrezIDs(1:10 0)到=“曼氏金融”,水平= 2,orgPackage =“org.Hs.eg.db”) expandedSingh < - expandedProfile (singh01EntrezIDs(1:10 0)到=“曼氏金融”,水平= 2,orgPackage =“org.Hs.eg.db”) commonGenes < -相交(welsh01EntrezIDs [1:10], singh01EntrezIDs [1:10]) commonExpanded < - expandedProfile (commonGenes到=“曼氏金融”,水平= 2,orgPackage =“org.Hs.eg.db”) equivMF < -equivalentGOProfiles (expandedWelsh [[MF的]],qm = expandedSingh [[MF的]],pqn0 = commonExpanded [[MF的]])打印(equivSummary (equivMF decs = 5))