# Create PDX model design data
pdx_design <- data.frame(
Parameter = c(
"Mouse model",
"Patient source",
"CALR mutation type",
"Patient mutCALR VAF",
"Tumor cell inoculation",
"Cell number (tumor)",
"Engraftment period",
"T cell source",
"T cell number",
"T cell administration",
"Antibody administration",
"Antibody doses tested",
"Treatment duration",
"Endpoint analyses"
),
Detail = c(
"NSGS mice (NOD/SCID IL2RG knockout with cytokine expression)",
"Type 2 mutCALR myelofibrosis patient",
"Type 2 mutCALR",
"89.6%",
"Intratibial injection of patient-derived CD34+ cells",
"1×10⁵ cells/mouse",
"4 weeks (until peripheral blood hCD45+ engraftment confirmed)",
"Autologous/patient-matched T cells",
"1×10⁶ cells/mouse",
"Intravenous (at randomization)",
"Intraperitoneal, weekly for 4 weeks",
"0.03 mg/kg and 0.2 mg/kg",
"4 weeks (Week 1 through Week 4 post-randomization)",
"Bone marrow flow cytometry (megakaryocyte, myeloid, erythroid progenitors)"
)
)
# Create PDX efficacy results
pdx_results <- data.frame(
Compartment = c(
"Megakaryocyte progenitors (hCD45+hCD41+)",
"Megakaryocyte progenitors (hCD45+hCD41+)",
"Myeloid cells (hCD45+hCD33+)",
"Myeloid cells (hCD45+hCD33+)",
"Erythroid cell progenitors (hCD45+hCD71+)",
"Erythroid cell progenitors (hCD45+hCD71+)"
),
Dose = c(
"0.03 mg/kg", "0.2 mg/kg",
"0.03 mg/kg", "0.2 mg/kg",
"0.03 mg/kg", "0.2 mg/kg"
),
Effect_vs_Untreated = c(
"Significant reduction", "Significant reduction",
"Significant reduction", "Significant reduction",
"No significant effect", "No significant effect"
),
P_Value = c(
"<0.01", "<0.01",
"<0.01", "<0.01",
"ns", "ns"
),
Interpretation = c(
"Target cell depletion in BM", "Target cell depletion in BM",
"Myeloid compartment reduction", "Myeloid compartment reduction",
"Erythroid lineage spared", "Erythroid lineage spared"
)
)