nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

Delete all columns that have zeros in all raws

gallardet

Well, that is what I need to do.

I tried to look for similar scripts but I have not found the solution.

Thanks in advance.

Manel

Accepted answers

txnelson

Here is a simple script that will delete all columns that are all zeros

Names Default To Here( 1 );
dt = Current Data Table();

numericColNames = dt << get column names( string, numeric );

allZerosList = {};

For( i = 1, i <= N Items( numericColNames ), i++,
	If( Col Sum( Column( dt, numericColNames[i] ) ) == 0
	& Col Std Dev( Column( dt, numericColNames[i] ) ) == 0,
		Insert Into( allZerosList, numericColNames[i] )
	)
);

If( N Items( allZerosList ) > 0,
	dt << delete columns( allZerosList )
);

All comments

ron_horne

Hi @gallardet

for starters try this:

https://community.jmp.com/t5/Discussions/Select-and-Delete-a-Column-Where-All-Rows-Have-The-Same-Value/m-p/62142/highlight/true#M33477

ron

txnelson

Here is a simple script that will delete all columns that are all zeros

Names Default To Here( 1 );
dt = Current Data Table();

numericColNames = dt << get column names( string, numeric );

allZerosList = {};

For( i = 1, i <= N Items( numericColNames ), i++,
	If( Col Sum( Column( dt, numericColNames[i] ) ) == 0
	& Col Std Dev( Column( dt, numericColNames[i] ) ) == 0,
		Insert Into( allZerosList, numericColNames[i] )
	)
);

If( N Items( allZerosList ) > 0,
	dt << delete columns( allZerosList )
);

gallardet

Thanks, Sir.

TRR21

Can this be tweaked such that I can remove columns that have mostly zeros (eg. 50% of more of the rows)?

Thanks.

txnelson

You could do something like:

If(
	N Rows( dt << get rows where( Column( dt, numericColNames[i] ) == 0 ) ) >
	N Rows( dt ) / 2,
	Insert Into( allZerosList, numericColNames[i] )
);