Check.exp.tilt {TGST}

Check exponential tilt model assumption

Description

This function provides graphical assessment to the suitability of the exponential tilt model for risk score in finding optimal tripartite rules by semiparametric approach.

g1(s)=exp(\tilde{\beta}_{0}+\beta_{1}*s)*g0(s)

Usage

Check.exp.tilt(Z, S)

Arguments

Z

True disease status (No disease / treatment success coded as Z=0, diseased / treatment failure coded as Z=1).

S

Risk score.

Value

Plot of empirical density for risk score S, joint empirical density for (S,Z=1) and (S,Z=0), and the density under the exponential tilt model assumption for (S,Z=1) and (S,Z=0).

Examples

d = Simdata
Z = d$Z # True Disease Status
S = d$S # Risk Score
Check.exp.tilt( Z, S)