if (FALSE) # time consuming code part
data(Schizo_BinCont)
# Use ICA.BinCont to examine surrogacy
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)
plot(Fit1, Type="Most.Likely.DeltaT")
Run the code above in your browser using DataLab