GPS(DATABASE, RR0 = 1, MIN.n11 = 1, DECISION = 1, DECISION.THRES = 0.05,
RANKSTAT = 1, TRONC = FALSE, TRONC.THRES = 1,
PRIOR.INIT = c(alpha1 = 0.2, beta1 = 0.06, alpha2 = 1.4,
beta2 = 1.8, w = 0.1), PRIOR.PARAM = NULL)as.PhViD.RR0=1.MIN.n11 = 1.RANKSTATDECISION. Ex 0.05 for FDR (DECISION=1).TRONC.THRES notifications are considered in the calculation of the hyper parameters and the likelihood is a product of mixture of two negative binomial truncated by TRONC.THRES-1. By default, TRONCPRIOR.INIT $= c(\alpha_1 = 0.2, \beta_1 = 0.06, \alpha_2 = 1.4, \beta_2 = 1.8, w = 0.1)$, ie the prior parameters found in DuMouchel (19PRIOR.PARAM = NULL which means that the hyperparameters are calculated by maximising the marginal likelihood.MIN.n11 notifications ordered by RANKSTAT. It contains notably the labels, the cell counts, the expected counts, RANKSTAT, the ratios(count/expected count), the marginal counts and the estimations of FDR, FNR, Se et Sp. If RANKSTAT!=1, the last column is the posterior probability of the null hypothesis.ALLSIGNALS but restricted to the list of generated signals.PRIOR.PARAM). Additionally if PRIOR.PARAM=NULL, it also contains the prior hyper parameters initialization (PRIOR.INIT) and the convergence code (see nlm()).as.PhViD). $\lambda$ is a priori assumed to be distributed according to a mixture of two gamma distributions: $\lambda \sim w \: \Gamma(\alpha_1,\beta_1) + (1-w) \: \Gamma(\alpha_2,\beta_2)$.DuMouchel W, Bayesian Data Mining in Large Frequency Tables, with an Application to the FDA Spontaneous Reporting System, The American Statistician, 1999, 53, 177-190.
Szarfman A, Machado S, O'Neill R, Use of Screening Algorithms and Computer Systems to Efficiently Signal Higher-Than-Expected Combinations of Drugs and Events in the US FDA's Spontaneous Reports Database Drug Safety, 2002, 25, 381-392.
## start
#data(PhViDdata.frame)
#PhViDdata <- as.PhViD(PhViDdata.frame)
#res <- GPS(PhViDdata)
#List of signals generated by the decision rule proposed
#by Szarfman et al. (2002)
#res2 <- GPS(PhViDdata, DECISION = 3, DECISION.THRES = 2, RANKSTAT = 2)
## endRun the code above in your browser using DataLab