Linear Assignment Problem for Minimizing Swim Times (onete03)

```
/**************************************************************************/
/*                                                                        */
/*          S A S   S A M P L E   L I B R A R Y                           */
/*                                                                        */
/*    NAME: onete03                                                       */
/*   TITLE: Linear Assignment Problem for Minimizing Swim Times (onete03) */
/*          Times                                                         */
/* PRODUCT: OR                                                            */
/*  SYSTEM: ALL                                                           */
/*    KEYS: OR                                                            */
/*   PROCS: OPTNET, PRINT                                                 */
/*    DATA:                                                               */
/*                                                                        */
/* SUPPORT:                             UPDATE:                           */
/*     REF:                                                               */
/*    MISC: Example 3 from the OPTNET documentation.                      */
/*                                                                        */
/**************************************************************************/

data RelayTimes;
input name \$ sex \$ back breast fly free;
datalines;
Sue     F 35.1 36.7 28.3 36.1
Karen   F 34.6 32.6 26.9 26.2
Jan     F 31.3 33.9 27.1 31.2
Andrea  F 28.6 34.1 29.1 30.3
Carol   F 32.9 32.2 26.6 24.0
Ellen   F 27.8 32.5 27.8 27.0
Jim     M 26.3 27.6 23.5 22.4
Mike    M 29.0 24.0 27.9 25.4
Sam     M 27.2 33.8 25.2 24.1
Clayton M 27.0 29.2 23.0 21.9
;

data RelayTimesF RelayTimesM;
set RelayTimes;
if      sex='F' then output RelayTimesF;
else if sex='M' then output RelayTimesM;
run;

proc optnet
data_matrix = RelayTimesF;
linear_assignment
out      = LinearAssignF
id       = (name sex);
run;
%put &_OROPTNET_;
%put &_OROPTNET_LAP_;

proc optnet
data_matrix = RelayTimesM;
linear_assignment
out      = LinearAssignM
id       = (name sex);
run;
%put &_OROPTNET_;
%put &_OROPTNET_LAP_;

proc print data=LinearAssignF noobs label;
sum cost;
run;

proc print data=LinearAssignM noobs label;
sum cost;
run;

```