-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path.Rhistory
68 lines (68 loc) · 2.58 KB
/
.Rhistory
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
source("D:/R_untargeted analysis_project/ntaworkflow/datacombine/data_process_final.R", encoding = 'UTF-8')
source("D:/R_untargeted analysis_project/ntaworkflow/final_functions.R", encoding = 'UTF-8')
source("D:/R_untargeted analysis_project/NTAPrioritization/NTAprioritization/R/getRTMSMS.R", encoding = 'UTF-8')
source("D:/R_untargeted analysis_project/NTAPrioritization/NTAprioritization/R/getTierlevel.R", encoding = 'UTF-8')
source("D:/R_untargeted analysis_project/NTAPrioritization/NTAprioritization/R/predictionRT.R", encoding = 'UTF-8')
source("D:/R_untargeted analysis_project/NTAPrioritization/NTAprioritization/R/RTMSMS.R", encoding = 'UTF-8')
library(readr)
toxicity_datasetfinal_13754 <- read_csv("D:/R_untargeted analysis_project/ntaworkflow/toxicity_datasetfinal_13754.csv")
View(toxicity_datasetfinal_13754)
library(readr)
database <- read_csv("D:/R_untargeted analysis_project/NTAPrioritization/database.csv")
View(database)
save.Rdata(database,file='database.RData')
save.Rdata(database,'database.RData')
library(NTAprioritization)
packsneed <- c('rcdk','rcdklibs','randomForest','leaps','caret','corrplot','tidyverse',
'mlr','dplyr','Metrics','ggpubr','ggplot2','miceadds','rio','openxlsx','ggrepel')
lapply(packsneed, require, character.only = TRUE)
packsneed <- c('rcdk','rcdklibs','randomForest','leaps','caret','corrplot','tidyverse',
'mlr','dplyr','Metrics','ggpubr','ggplot2','miceadds','rio','openxlsx','ggrepel')
lapply(packsneed, require, character.only = TRUE)
library(NTAprioritization)
?getRTMSMS
?getRTMSMS
library(NTAprioritization)
?getRTMSMS
library(NTAprioritization)
?getTierlevel
getRTMSMS()
library(NTAprioritization)
?getRTMSMS
getRTMSMS()
library(NTAprioritization)
?getRTMSMS
getRTMSMS
getRTMSMS()
list.files()
library(devtools)
file.path(R.home(), "bin/x32")
Sys.getenv()['PATH']
getwd()
getwd()
file.path(R.home(), "bin", "R")
getwd()
library(NTAprioritization)
?getRTMSMS
getRTMSMS()
source("D:/R_untargeted analysis_project/NTAPrioritization/NTAprioritization/R/getRTMSMS.R", encoding = 'UTF-8')
library(NTAprioritization)
?getRTMSMS
getRTMSMS
getRTMSMS()
getwd()
getTierlevel()
library(NTAprioritization)
?getTierlevel()
getTierlevel()
source("D:/R_untargeted analysis_project/NTAPrioritization/NTAprioritization/R/getTierlevel.R", encoding = 'UTF-8')
library(NTAprioritization)
getTierlevel()
getTierlevel()
plotdat <- mdat%>% select(Toxicity, Priority,rank_tox,Compound.ID)
getTierlevel()
library(NTAprioritization)
getTierlevel()
source("D:/R_untargeted analysis_project/NTAPrioritization/NTAprioritization/R/getTierlevel.R", encoding = 'UTF-8')
library(NTAprioritization)
getTierlevel()