See if this is close to what you want:
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