For the same parameters and Holm (Bonferroni's approach) it agrees.
EDIT: Checked also with multxpert:
F1 <- list(label = "F1", rawp=c(0.01, 0.013), proc = "Hochberg", procpar = 0.5)
F2 <- list(label = "F2", rawp=c(0.01, 0.01), proc = "Hochberg", procpar = 1)
multxpert::pargateadjp(gateproc = list(F1, F2), independence = TRUE, printDecisionRules=TRUE)
Hypothesis testing problem
Global familywise error rate=0.05
Independence condition is imposed (the families are tested from first to last)
Family 1 (F1) is tested using Hochberg procedure (truncation parameter=0.5) at alpha1=0.05.
Null hypothesis 1 (raw p-value=0.01) is rejected.
Null hypothesis 2 (raw p-value=0.013) is rejected.
Details on the decision rule for this family can be obtained by running the PValAdjP function for Hochberg procedure with gamma=0.5 and alpha=0.05.
One or more null hypotheses are rejected in Family 1 and the parallel gatekeeping procedure passes this family. Based on the error rate function of Hochberg procedure (truncation parameter=0.5), alpha2=0.05 is carried over to Family 2.
Family 2 (F2) is tested using Hochberg procedure (truncation parameter=1) at alpha2=0.05.
Null hypothesis 3 (raw p-value=0.01) is rejected.
Null hypothesis 4 (raw p-value=0.01) is rejected.
Details on the decision rule for this family can be obtained by running the PValAdjP function for Hochberg procedure with gamma=1 and alpha=0.05.
Family Procedure Parameter Raw.pvalue Adj.pvalue
1 F1 Hochberg 0.5 0.010 0.0173
2 F1 Hochberg 0.5 0.013 0.0173
3 F2 Hochberg 1.0 0.010 0.0173
4 F2 Hochberg 1.0 0.010 0.0173
For this 2-family parallel gatekeeper with Hochberg truncated at: 0.5 in the 1st family and 1 (classic) in the 2nd family:
I get a discrepancy between gMCP and Mediana.
Mediana:
gMCP with Simes test:
I get from the CTP:
Let's filter it:
For the same parameters and Holm (Bonferroni's approach) it agrees.
EDIT: Checked also with multxpert: