-
Notifications
You must be signed in to change notification settings - Fork 2
/
rpart_calculating variable importance_18May2021.txt (1).txt
90 lines (64 loc) · 4.03 KB
/
rpart_calculating variable importance_18May2021.txt (1).txt
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
library(survival)
library(rpart)
library(sas7bdat)
library(Hmisc)
library(plotrix)
survplot<-source('y:/slib/survPlot2.R')
###################################################################################
a<-read.sas7bdat(your data)
names(a)
dim(a)
#==================Erlotinib;
Fitted <- rpart (Erlotinib_average ~ Exon_18 + Exon_19 + Exon_20 + Exon_21 + SFG, cp=0.001, data=a)
round(Fitted$variable.importance/sum(Fitted$variable.importance)*100,digit=0)
#==================Geftinib;
Fitted <- rpart (Geftinib_average ~ Exon_18 + Exon_19 + Exon_20 + Exon_21 + SFG, cp=0.001, data=a)
round(Fitted$variable.importance/sum(Fitted$variable.importance)*100,digit=0)
#==================AZD3759;
Fitted <- rpart (AZD3759_average ~ Exon_18 + Exon_19 + Exon_20 + Exon_21 + SFG, cp=0.001, data=a)
round(Fitted$variable.importance/sum(Fitted$variable.importance)*100,digit=0)
#==================Sapatinib;
Fitted <- rpart (Sapatinib_average ~ Exon_18 + Exon_19 + Exon_20 + Exon_21 + SFG, cp=0.001, data=a)
round(Fitted$variable.importance/sum(Fitted$variable.importance)*100,digit=0)
#==================Afatinib;
Fitted <- rpart (Afatinib_average ~ Exon_18 + Exon_19 + Exon_20 + Exon_21 + SFG, cp=0.001, data=a)
round(Fitted$variable.importance/sum(Fitted$variable.importance)*100,digit=0)
#==================Dacomitinib;
Fitted <- rpart (Dacomitinib_average ~ Exon_18 + Exon_19 + Exon_20 + Exon_21 + SFG, cp=0.001, data=a)
round(Fitted$variable.importance/sum(Fitted$variable.importance)*100,digit=0)
#==================Neratinib;
Fitted <- rpart (Neratinib_average ~ Exon_18 + Exon_19 + Exon_20 + Exon_21 + SFG, cp=0.001, data=a)
round(Fitted$variable.importance/sum(Fitted$variable.importance)*100,digit=0)
#==================Poziotinib;
Fitted <- rpart (Poziotinib_average ~ Exon_18 + Exon_19 + Exon_20 + Exon_21 + SFG, cp=0.001, data=a)
round(Fitted$variable.importance/sum(Fitted$variable.importance)*100,digit=0)
#==================Tarlox_TKI;
Fitted <- rpart (Tarlox_TKI_average ~ Exon_18 + Exon_19 + Exon_20 + Exon_21 + SFG, cp=0.001, data=a)
round(Fitted$variable.importance/sum(Fitted$variable.importance)*100,digit=0)
#==================TAS_6417;
Fitted <- rpart (TAS_6417_average ~ Exon_18 + Exon_19 + Exon_20 + Exon_21 + SFG, cp=0.001, data=a)
round(Fitted$variable.importance/sum(Fitted$variable.importance)*100,digit=0)
#==================AZ5104;
Fitted <- rpart (AZ5104_average ~ Exon_18 + Exon_19 + Exon_20 + Exon_21 + SFG, cp=0.001, data=a)
round(Fitted$variable.importance/sum(Fitted$variable.importance)*100,digit=0)
#==================TAK_788;
Fitted <- rpart (TAK_788_average ~ Exon_18 + Exon_19 + Exon_20 + Exon_21 + SFG, cp=0.001, data=a)
round(Fitted$variable.importance/sum(Fitted$variable.importance)*100,digit=0)
#==================Osimertinib;
Fitted <- rpart (Osimertinib_average ~ Exon_18 + Exon_19 + Exon_20 + Exon_21 + SFG, cp=0.001, data=a)
round(Fitted$variable.importance/sum(Fitted$variable.importance)*100,digit=0)
#==================Nazartinib;
Fitted <- rpart (Nazartinib_average ~ Exon_18 + Exon_19 + Exon_20 + Exon_21 + SFG, cp=0.001, data=a)
round(Fitted$variable.importance/sum(Fitted$variable.importance)*100,digit=0)
#==================Olmutinib;
Fitted <- rpart (Olmutinib_average ~ Exon_18 + Exon_19 + Exon_20 + Exon_21 + SFG, cp=0.001, data=a)
round(Fitted$variable.importance/sum(Fitted$variable.importance)*100,digit=0)
#==================Rocelitinib;
Fitted <- rpart (Rocelitinib_average ~ Exon_18 + Exon_19 + Exon_20 + Exon_21 + SFG, cp=0.001, data=a)
round(Fitted$variable.importance/sum(Fitted$variable.importance)*100,digit=0)
#==================Naquotinib;
Fitted <- rpart (Naquotinib_average ~ Exon_18 + Exon_19 + Exon_20 + Exon_21 + SFG, cp=0.001, data=a)
round(Fitted$variable.importance/sum(Fitted$variable.importance)*100,digit=0)
#==================Lazartinib;
Fitted <- rpart (Lazartinib_average ~ Exon_18 + Exon_19 + Exon_20 + Exon_21 + SFG, cp=0.001, data=a)
round(Fitted$variable.importance/sum(Fitted$variable.importance)*100,digit=0)