This function prepares necessary list of information for fitting IPW or AIPW
PS(data, R, pattern)returns a list containing the following components:
the fitted values for the first stage regression
the influence functions of the fitted values for the first stage regression
the positivity parameter used in the link function
the propensities of fully observed for each R = 1 subject