# NOT RUN {
# time consuming code part
# Use ICA.BinCont to examine surrogacy
data(Schizo_BinCont)
Result_BinCont <- ICA.BinCont(M = 1000, Dataset = Schizo_BinCont,
Surr = PANSS, True = CGI_Bin, Treat=Treat, Diff.Sigma=TRUE)
# Obtain SPF
Fit <- SPF.BinCont(x=Result_BinCont, a = -30, b = -3)
# examine results
summary(Fit1)
plot(Fit1)
# }
Run the code above in your browser using DataLab