# Step 1: fit null model and test batch effect
PhenoFile <- system.file("extdata", "simuPHENO.txt", package = "GRAB")
PhenoData <- data.table::fread(PhenoFile, header = TRUE)
SparseGRMFile <- system.file("extdata", "SparseGRM.txt", package = "GRAB")
GenoFile <- system.file("extdata", "simuPLINK.bed", package = "GRAB")
RefAfFile <- system.file("extdata", "simuRefAf.txt", package = "GRAB")
OutputFile <- file.path(tempdir(), "resultWtCoxG.txt")
obj.WtCoxG <- GRAB.NullModel(
survival::Surv(SurvTime, SurvEvent) ~ AGE + GENDER,
data = PhenoData,
subjIDcol = "IID",
method = "WtCoxG",
traitType = "time-to-event",
GenoFile = GenoFile,
SparseGRMFile = SparseGRMFile,
RefAfFile = RefAfFile,
RefPrevalence = 0.1
)
# Step2
GRAB.Marker(obj.WtCoxG, GenoFile, OutputFile)
head(data.table::fread(OutputFile))
Run the code above in your browser using DataLab