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