require("GenomicSEM")
library(data.table)
library(dplyr)
library(tidyverse)
munge("SCZ1.txt",
"w_hm3.noMHC.snplist",
trait.names="SCZ",
N=306011,
info.filter = 0.9,
maf.filter = 0.01)
munge("INSO_Jansen_sumstats_filtered.txt.gz",
"w_hm3.noMHC.snplist",
trait.names="TRAIT",
info.filter = 0.9,
maf.filter = 0.01)
traits <- c("SCZ.sumstats.gz","TRAIT.sumstats.gz")
sample.prev <- c(NA,NA)
population.prev <- c(NA,NA)
ld<-"eur_w_ld_chr/"
wld <- "eur_w_ld_chr/"
trait.names<-c("SCZ", "TRAIT")
LDSCoutput <- ldsc(traits,
sample.prev,
population.prev,
ld,
wld,
trait.names)
model<-'F1=~NA*SCZ + TRAIT
F2=~NA*SCZ
F2~~1*F2
F1~~1*F1
F1~~0*F2
TRAIT~~0*SCZ
TRAIT~~0*TRAIT
SCZ~~0*SCZ'
output <-usermodel(LDSCoutput,estimation="DWLS",model=model)
files = c("SCZ1.txt", "INSO_Jansen_sumstats_filtered.txt.gz")
ref = "reference.uk10k.maf.0.005.txt"
trait.names = c("SCZ","TRAIT")
se.logit = c(T,T)
info.filter = 0.6
maf.filter = 0.01
p_sumstats<-sumstats(files, ref, trait.names, se.logit, info.filter, maf.filter, OLS=c(F,F),linprob=NULL, prop=NULL, N=c(306011, 386533))
est1<-round(output$results$Unstand_Est[1],digits=2)
est2<-round(output$results$Unstand_Est[2],digits=2)
est4<-round(output$results$Unstand_Est[4],digits=2)
model <- 'F1=~NA*SCZ + start(est1)*SCZ + start(est2)*TRAIT
F2=~NA*SCZ + start(est4)*SCZ
F1~SNP
F2~SNP
F2~~1*F2
F1~~1*F1
F1~~0*F2
TRAIT~~0*SCZ
TRAIT~~0*TRAIT
SCZ~~0*SCZ
SNP~~SNP'
outputGWAS <- userGWAS(covstruc=LDSCoutput,
SNPs=p_sumstats,
estimation="DWLS",
model=model,
printwarn=FALSE,
sub=c("F1~SNP","F2~SNP"),
toler=FALSE,SNPSE=FALSE,parallel=TRUE,Output=NULL)