Names Default To Here(1);
demoList = New Table("datatablecollection", New Column("Parent", Character, Nominal), New Column("Child", Character, Nominal));
addToDemoList = Function({_parent, _child, dt = demoList},
{Default Local},
parentName = _parent << get name;
childName = _child << get name;
demoList << Add Row({Parent = parentName, Child = childName});
);
dt = Open("$SAMPLE_DATA/Big Class.jmp", invisible);
dt_subset = dt << Subset(all rows, invisible);
addToDemoList(dt, dt_subset);
dt_subset_subset = dt_subset << Subset(all rows, invisible);
addToDemoList(dt_subset, dt_subset_subset);
dt_subset_summary = dt_subset << Summary(Group(:name, :sex), Freq("None"), Weight("None"), invisible);
addToDemoList(dt_subset, dt_subset_summary);
dt_subset_subset_summary = dt_subset_subset << Summary(Group(:name, :sex), Freq("None"), Weight("None"), invisible);
addToDemoList(dt_subset_subset, dt_subset_subset_summary);
dt_summary = dt << Summary(Group(:name, :sex), Freq("None"), Weight("None"), invisible);
addToDemoList(dt, dt_summary);
obj = demoList << Diagram(Y(:Child), X(:Parent));
Close(dt, no save);
Close(dt_subset, no save);
Close(dt_subset_subset, no save);
Close(dt_summary, no save);
Close(dt_subset_summary, no save);
Close(dt_subset_subset_summary, no save);
_dt = New Table("Untitled 37",
Add Rows(3),
Compress File When Saved(1),
New Column("Column 1", Character, "Nominal", Set Values({"Big Class", "Big Class", "Big Class"})),
New Column("Column 2",
Character,
"Nominal",
Set Values({"Subset of Big Class", "Big Class By (name, sex)", "Subset of Big Class"})
),
New Column("Column 3",
Character,
"Nominal",
Set Values({"Subset of Subset of Big Class", "", "Subset of Big Class By (name, sex)"})
),
New Column("Column 4", Character, "Nominal", Set Values({"Subset of Subset of Big Class", "", ""}))
);
parallelPlot = _dt << Graph Builder(
Size(495, 450),
Show Control Panel(0),
Variables(X(:Column 1), X(:Column 2, Position(1)), X(:Column 3, Position(1)), X(:Column 4, Position(1)), Color(:Column 1)),
Elements(Parallel(X(1), X(2), X(3), X(4), Legend(3)))
);
Names Default To Here(1);
demoList = New Table("datatablecollection", New Column("Parent", Character, Nominal), New Column("Child", Character, Nominal));
addToDemoList = Function({_parent, _child, dt = demoList},
{Default Local},
parentName = _parent << get name;
childName = _child << get name;
demoList << Add Row({Parent = parentName, Child = childName});
);
dt = Open("$SAMPLE_DATA/Big Class.jmp", invisible);
dt_subset = dt << Subset(all rows, invisible);
addToDemoList(dt, dt_subset);
dt_subset_subset = dt_subset << Subset(all rows, invisible);
addToDemoList(dt_subset, dt_subset_subset);
dt_subset_summary = dt_subset << Summary(Group(:name, :sex), Freq("None"), Weight("None"), invisible);
addToDemoList(dt_subset, dt_subset_summary);
dt_subset_subset_summary = dt_subset_subset << Summary(Group(:name, :sex), Freq("None"), Weight("None"), invisible);
addToDemoList(dt_subset_subset, dt_subset_subset_summary);
dt_summary = dt << Summary(Group(:name, :sex), Freq("None"), Weight("None"), invisible);
addToDemoList(dt, dt_summary);
obj = demoList << Diagram(Y(:Child), X(:Parent));
Close(dt, no save);
Close(dt_subset, no save);
Close(dt_subset_subset, no save);
Close(dt_summary, no save);
Close(dt_subset_summary, no save);
Close(dt_subset_subset_summary, no save);
_dt = New Table("Untitled 37",
Add Rows(3),
Compress File When Saved(1),
New Column("Column 1", Character, "Nominal", Set Values({"Big Class", "Big Class", "Big Class"})),
New Column("Column 2",
Character,
"Nominal",
Set Values({"Subset of Big Class", "Big Class By (name, sex)", "Subset of Big Class"})
),
New Column("Column 3",
Character,
"Nominal",
Set Values({"Subset of Subset of Big Class", "", "Subset of Big Class By (name, sex)"})
),
New Column("Column 4", Character, "Nominal", Set Values({"Subset of Subset of Big Class", "", ""}))
);
parallelPlot = _dt << Graph Builder(
Size(495, 450),
Show Control Panel(0),
Variables(X(:Column 1), X(:Column 2, Position(1)), X(:Column 3, Position(1)), X(:Column 4, Position(1)), Color(:Column 1)),
Elements(Parallel(X(1), X(2), X(3), X(4), Legend(3)))
);