-
Notifications
You must be signed in to change notification settings - Fork 0
/
gsubNum2GeneV.R
113 lines (113 loc) · 5.27 KB
/
gsubNum2GeneV.R
1
2
3
4
5
6
7
8
9
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
gsubNum2GeneV <- function(x) {
x <- gsub( "1.68", "IGLV2", x, fixed=TRUE)
x <- gsub( "1.67", "IGLV3", x, fixed=TRUE)
x <- gsub( "1.66", "IGLV1", x, fixed=TRUE)
x <- gsub( "1.64", "IGKV2-137", x, fixed=TRUE)
x <- gsub( "1.62", "IGKV1-135", x, fixed=TRUE)
x <- gsub( "1.59", "IGKV1-133", x, fixed=TRUE)
x <- gsub( "1.58", "IGKV1-132", x, fixed=TRUE)
x <- gsub( "1.57", "IGKV1-131", x, fixed=TRUE)
x <- gsub( "1.56", "IGKV14-130", x, fixed=TRUE)
x <- gsub( "1.55", "IGKV9-129", x, fixed=TRUE)
x <- gsub( "1.53", "IGKV17-127", x, fixed=TRUE)
x <- gsub( "1.51", "IGKV14-126", x, fixed=TRUE)
x <- gsub( "1.50", "IGKV11-125", x, fixed=TRUE)
x <- gsub( "1.49", "IGKV9-124", x, fixed=TRUE)
x <- gsub( "1.48", "IGKV9-123", x, fixed=TRUE)
x <- gsub( "1.47", "IGKV1-122", x, fixed=TRUE)
x <- gsub( "1.46", "IGKV17-121", x, fixed=TRUE)
x <- gsub( "1.45", "IGKV9-120", x, fixed=TRUE)
x <- gsub( "1.40", "IGKV1-117", x, fixed=TRUE)
x <- gsub( "1.35", "IGKV2-112", x, fixed=TRUE)
x <- gsub( "1.34", "IGKV14-111", x, fixed=TRUE)
x <- gsub( "1.33", "IGKV1-110", x, fixed=TRUE)
x <- gsub( "1.32", "IGKV2-109", x, fixed=TRUE)
x <- gsub( "1.27", "IGKV16-104", x, fixed=TRUE)
x <- gsub( "1.26", "IGKV15-103", x, fixed=TRUE)
x <- gsub( "1.24", "IGKV20-101-2", x, fixed=TRUE)
x <- gsub( "1.22", "IGKV14-100", x, fixed=TRUE)
x <- gsub( "1.21", "IGKV1-99", x, fixed=TRUE)
x <- gsub( "1.20", "IGKV12-98", x, fixed=TRUE)
x <- gsub( "1.18", "IGKV10-96", x, fixed=TRUE)
x <- gsub( "1.15", "IGKV10-95", x, fixed=TRUE)
x <- gsub( "1.14", "IGKV10-94", x, fixed=TRUE)
x <- gsub( "1.12", "IGKV19-93", x, fixed=TRUE)
x <- gsub( "1.11", "IGKV4-92", x, fixed=TRUE)
x <- gsub( "1.10", "IGKV4-91", x, fixed=TRUE)
x <- gsub( "1.09", "IGKV4-90", x, fixed=TRUE)
x <- gsub( "1.07", "IGKV12-89", x, fixed=TRUE)
x <- gsub( "1.06", "IGKV1-88", x, fixed=TRUE)
x <- gsub( "1.04", "IGKV4-86", x, fixed=TRUE)
x <- gsub( "1.03", "IGKV13-85", x, fixed=TRUE)
x <- gsub( "1.02", "IGKV13-84", x, fixed=TRUE)
x <- gsub( "0.99", "IGKV4-81", x, fixed=TRUE)
x <- gsub( "0.97", "IGKV4-80", x, fixed=TRUE)
x <- gsub( "0.96", "IGKV4-79", x, fixed=TRUE)
x <- gsub( "0.94", "IGKV4-78", x, fixed=TRUE)
x <- gsub( "0.93", "IGKV4-77", x, fixed=TRUE)
x <- gsub( "0.89", "IGKV4-74", x, fixed=TRUE)
x <- gsub( "0.87", "IGKV4-73", x, fixed=TRUE)
x <- gsub( "0.86", "IGKV4-72", x, fixed=TRUE)
x <- gsub( "0.84", "IGKV4-71", x, fixed=TRUE)
x <- gsub( "0.83", "IGKV4-70", x, fixed=TRUE)
x <- gsub( "0.82", "IGKV4-69", x, fixed=TRUE)
x <- gsub( "0.81", "IGKV4-68", x, fixed=TRUE)
x <- gsub( "0.76", "IGKV4-63", x, fixed=TRUE)
x <- gsub( "0.74", "IGKV4-62", x, fixed=TRUE)
x <- gsub( "0.72", "IGKV4-61", x, fixed=TRUE)
x <- gsub( "0.71", "IGKV4-59", x, fixed=TRUE)
x <- gsub( "0.70", "IGKV4-60", x, fixed=TRUE)
x <- gsub( "0.69", "IGKV4-58", x, fixed=TRUE)
x <- gsub( "0.67", "IGKV4-57-1", x, fixed=TRUE)
x <- gsub( "0.65", "IGKV4-57", x, fixed=TRUE)
x <- gsub( "0.63", "IGKV4-56", x, fixed=TRUE)
x <- gsub( "0.61", "IGKV4-55", x, fixed=TRUE)
x <- gsub( "0.59", "IGKV4-54", x, fixed=TRUE)
x <- gsub( "0.58", "IGKV4-53", x, fixed=TRUE)
x <- gsub( "0.57", "IGKV4-52", x, fixed=TRUE)
x <- gsub( "0.56", "IGKV4-51", x, fixed=TRUE)
x <- gsub( "0.55", "IGKV4-50", x, fixed=TRUE)
x <- gsub( "0.53", "IGKV5-48", x, fixed=TRUE)
x <- gsub( "0.51", "IGKV12-46", x, fixed=TRUE)
x <- gsub( "0.50", "IGKV5-45", x, fixed=TRUE)
x <- gsub( "0.49", "IGKV12-44", x, fixed=TRUE)
x <- gsub( "0.48", "IGKV5-43", x, fixed=TRUE)
x <- gsub( "0.46", "IGKV12-41", x, fixed=TRUE)
x <- gsub( "0.43", "IGKV5-39", x, fixed=TRUE)
x <- gsub( "0.42", "IGKV12-38", x, fixed=TRUE)
x <- gsub( "0.41", "IGKV5-37", x, fixed=TRUE)
x <- gsub( "0.40", "IGKV18-36", x, fixed=TRUE)
x <- gsub( "0.39", "IGKV1-35", x, fixed=TRUE)
x <- gsub( "0.38", "IGKV8-34", x, fixed=TRUE)
x <- gsub( "0.37", "IGKV7-33", x, fixed=TRUE)
x <- gsub( "0.36", "IGKV6-32", x, fixed=TRUE)
x <- gsub( "0.35", "IGKV8-31", x, fixed=TRUE)
x <- gsub( "0.34", "IGKV8-30", x, fixed=TRUE)
x <- gsub( "0.33", "IGKV6-29", x, fixed=TRUE)
x <- gsub( "0.32", "IGKV8-28", x, fixed=TRUE)
x <- gsub( "0.31", "IGKV8-27", x, fixed=TRUE)
x <- gsub( "0.30", "IGKV8-26", x, fixed=TRUE)
x <- gsub( "0.29", "IGKV6-25", x, fixed=TRUE)
x <- gsub( "0.28", "IGKV8-24", x, fixed=TRUE)
x <- gsub( "0.27", "IGKV8-23-1", x, fixed=TRUE)
x <- gsub( "0.26", "IGKV6-23", x, fixed=TRUE)
x <- gsub( "0.24", "IGKV8-21", x, fixed=TRUE)
x <- gsub( "0.23", "IGKV6-20", x, fixed=TRUE)
x <- gsub( "0.22", "IGKV8-19", x, fixed=TRUE)
x <- gsub( "0.21", "IGKV8-18", x, fixed=TRUE)
x <- gsub( "0.17", "IGKV6-17", x, fixed=TRUE)
x <- gsub( "0.16", "IGKV8-16", x, fixed=TRUE)
x <- gsub( "0.15", "IGKV6-15", x, fixed=TRUE)
x <- gsub( "0.14", "IGKV6-14", x, fixed=TRUE)
x <- gsub( "0.13", "IGKV6-13", x, fixed=TRUE)
x <- gsub( "0.12", "IGKV3-12", x, fixed=TRUE)
x <- gsub( "0.10", "IGKV3-10", x, fixed=TRUE)
x <- gsub( "0.09", "IGKV3-9", x, fixed=TRUE)
x <- gsub( "0.08", "IGKV3-8", x, fixed=TRUE)
x <- gsub( "0.07", "IGKV3-7", x, fixed=TRUE)
x <- gsub( "0.05", "IGKV3-5", x, fixed=TRUE)
x <- gsub( "0.04", "IGKV3-4", x, fixed=TRUE)
x <- gsub( "0.03", "IGKV3-3", x, fixed=TRUE)
x <- gsub( "0.02", "IGKV3-2", x, fixed=TRUE)
x <- gsub( "0.01", "IGKV3-1", x, fixed=TRUE)
}