See if this is close to what you want:
![txnelson_0-1703650817833.png txnelson_0-1703650817833.png](https://community.jmp.com/t5/image/serverpage/image-id/60095i69504E635040AE63/image-size/medium?v=v2&px=400)
Names Default To Here( 1 );
dt = Current Data Table();
dtPercent = dt << subset(
columns( :Institution name, :Year, :Applicants total ),
selected rows( 0 )
);
dtPercent << sort( by( :Institution Name, Year ), replace table( 1 ) );
dtPercent << New Column( "Percent Change",
Format( "percent", 9, 2 ),
set each value(
If( Row() == 1 | Lag( :Institution name ) != :Institution name,
:Percent Change = 0,
:Percent Change = 1 - Lag( :Applicants total ) / :Applicants total
)
)
)
;
Jim