cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 
JMP is taking Discovery online, April 16 and 18. Register today and join us for interactive sessions featuring popular presentation topics, networking, and discussions with the experts.
Choose Language Hide Translation Bar
robust1972
Level IV

how to find the empty columns and delete them by scripting

how to find the empty columns and delete them by scripting. any helps and/or hints will be very appreciated.

1 ACCEPTED SOLUTION

Accepted Solutions
ms
Super User (Alumni) ms
Super User (Alumni)

Re: how to find the empty columns and delete them by scripting

I can think of several ways to do this. Here's an example based on the built-in Missing Data Pattern command.

dt = Current Data Table();

names = dt << Get Column Names();

dt1 = dt << Missing Data Pattern(columns(Eval(names)), invisible);

n = N Row(dt1);

For(i = N Col(dt), i >= 1, i--,

    If(Col Sum(Column(dt1, i + 3)) < n,

        Remove From(names, i)

    )

);

Try(dt << delete columns(names));

Close(dt1, nosave);

View solution in original post

2 REPLIES 2
ms
Super User (Alumni) ms
Super User (Alumni)

Re: how to find the empty columns and delete them by scripting

I can think of several ways to do this. Here's an example based on the built-in Missing Data Pattern command.

dt = Current Data Table();

names = dt << Get Column Names();

dt1 = dt << Missing Data Pattern(columns(Eval(names)), invisible);

n = N Row(dt1);

For(i = N Col(dt), i >= 1, i--,

    If(Col Sum(Column(dt1, i + 3)) < n,

        Remove From(names, i)

    )

);

Try(dt << delete columns(names));

Close(dt1, nosave);

ian_jmp
Staff

Re: how to find the empty columns and delete them by scripting

As an alternative (and probably one of Marcus' 'several ways'):

dt = CurrentDataTable();

m = dt << getAllColumnsAsMatrix;

// Loop over the columns and record which are entirely missing

c2del = {};

for(c=1, c<=NCol(m), c++,

if(NRow(Loc(IsMissing(m[0,c]))) == NRow(m), InsertInto(c2del, c));

);

// Delete the columns

dt << deleteColumns(c2del);