Code: Alles auswählen
x <- c(NA, "TIMP1", "SSR2", "TRIM28", "AEBP1", "PPP1CC", "CHI3L1",
"BCL2A1", "SOD2", "GPI", "ALDH2", "DCTN2", "HSPD1", "PSMD7",
"MAF", "ARMCX6", "KPNA4", "EREG", "RPLP0", "FNTA", "ATF4", "GSR",
"CTSL1", "ATP6V0A1", "MMP12", "ID3", "SERPINA1", "CYFIP1", "NONO",
"VCAM1", "CX3CL1", "NOS1", "ADH7", "RHOA", "SERPINB2", "MDM2",
"FYN", "IL6", "GTF2A2", "RPL4", "SDCBP", "HNRNPF", "SLC1A4",
"IL8", "GPNMB", "HSP90AA1", "CLTA", "TSPYL2", "MPRIP", "LTA4H",
"RPL11", "MAZ", "MAP2K4", "MSN", "DUSP2", "RGS2", "ALDH3A1",
"SLC25A3", "FUCA1", "ATP1B3", "CCND2", "AHRR", "TGFB2", "HDAC1",
"ANGPT2", "MAFF", "ATP5A1", "POLR2F", "GCLC", "CCL11", "APLP2",
"HNRNPA2B1", "RRAGA", "CCL26", "PRDX6", "DNAJB4", "PPT1", "PER2",
"NDUFA12", "PPP1R15A", "B2M", "RAC1", "GLO1", "EIF4A2", "HSPA1A",
"MCL1", "FBXO30", "HNRNPC", "PRDX1", "NFKBIA", "CAPN2", "ICAM1",
"NDRG1", "TXNIP", "MMP1", "PGM1", "KDELR2", "MT1B", "BCLAF1",
"CCL2", "TLR2", "CSF2", "ATP5J", "INHBA", "CDK7", "PER1", "COPS6",
"S100A9", "MGP", "ENPP2", "SQLE", "PSMB4", "HSPA6", "FOSB", "GADD45A",
"DDIT3", "PGD", "CD81", "DKK1", "CA12", "ATP6AP1", "FOS", "RPL37A",
"KANK1", "MAFG", "ADAM10", "RPA2", "PTGR1", "ATP5F1", "EIF3E",
"EFR3A", "HMGN3", "TMED10", "DUSP6", "CXCL10", "NARS", "GAS1",
"CDKN1C", "CYR61", "37500", "DUSP1", "EIF1", "STXBP1", "GADD45B",
"ANXA10", "DBP", "PTGS2", "FOSL1", "MORF4L2", "PDIA6", "MYL12A",
"SRSF5", "CXCL1", "TTC3", "TOMM20", "PPIA", "ARHGAP1", "TTC1",
"GPX2", "STAT1", "CCNI", "NDUFA4", "SPRY2", "ADD3", "TMSB10",
"LAMP1", "STXBP3", "ARF3", "RPL3", "PPAP2B", "PSMB7", "CANX",
"GSTA4", "POLR2L", "CLOCK", "RFTN1", "P4HB", "ATP5O", "CBFB",
"COX7C", "GADD45G", "AES", "CTNNB1", "GUSB", "FAM120A", "EIF2B2",
"PLA2G4A", "RNF10", "SRSF11", "A2M", "HPRT1", "HERPUD1", "CD164",
"JUNB", "PGK1", "UQCRC2", "EEF2", "CCT5", "PMM1", "IL1RL1")
x[grepl("\\bMMP[1-9]\\b", x)]
patterns <- c("\\bMMP[1-9]\\b", "\\bDKK\\d")
i <- apply(sapply(patterns, grepl, x=x), 1, any)
x[i]
ich musste ein pattern verändern, damit es einen Treffer gab.