/*                                                            */
/* Section 3.2.2 (p. 61) Bovine growth hormone safety example */
/*                                                            */
data monsanto;
input level change;
cards;
1 339.900833699061
1 381.867306707084
1 320.223519778508
1 347.757878927786
1 294.522770790804
1 300.302742259583
1 299.468301997357
1 324.819772363583
1 258.257057005457
1 326.952602754973
1 300.965418583572
1 369.024151639862
1 242.895389277151
1 321.232030075598
1 299.444487271771
1 287.485802342534
1 299.051397493289
1 355.128616656036
1 318.434968619345
1 290.689335567123
1 355.695192987674
1 339.455040125216
1 269.523084708634
1 407.30773986628
1 311.026690368801
1 354.079130528505
1 352.884287257618
1 405.691352589194
1 307.584658548342
1 338.328439209262
2 410.120111376114
2 375.205296696866
2 405.138460933273
2 467.589319920606
2 538.706290647638
2 487.003475115559
2 489.445539821914
2 428.337161124105
2 435.041632089337
2 455.763011660264
2 396.910200302327
2 466.902514882305
2 442.19335904683
2 467.861452531896
2 395.322444095971
2 350.858924672377
2 444.214395695438
2 596.029276928475
2 369.567288922602
2 362.842760401819
2 395.58223542313
2 371.528505627025
2 395.251797662572
2 392.638352659509
2 470.17774876414
2 356.035084873824
2 528.812473819266
2 398.573556879543
2 368.569219592261
2 497.778107833014
3 283.136245557565
3 318.112599009367
3 307.780691025508
3 298.976278009467
3 356.83210442052
3 326.412953545407
3 341.578132025714
3 284.054804764899
3 336.627786538487
3 253.280824737152
3 382.787472135399
3 315.686870115812
3 309.72141155897
3 317.824885124655
3 302.482424891224
3 364.818150233112
3 366.903833879205
3 291.868796499102
3 322.726339936257
3 413.886460142312
3 283.26972836269
3 315.886433206444
3 314.929147831585
3 422.886633432748
3 286.448904761032
3 366.075583447592
3 294.131184141377
3 337.208751506143
3 338.561570872229
3 355.102998288025
4 201.63134908754
4 293.933396300747
4 361.247493836236
4 288.505901317124
4 286.567159838292
4 297.546312293152
4 356.589946163862
4 356.982381633578
4 307.279696421197
4 321.699549943755
4 282.134205846642
4 342.317547442813
4 458.688398838448
4 361.468071850438
4 311.232694373817
4 343.998067081102
4 371.214538431955
4 415.859766464276
4 322.999261370557
4 283.198631113489
4 274.934368963791
4 282.490049631872
4 269.36273622799
4 334.556414296728
4 294.492179527989
4 259.450198511122
4 265.988824094291
4 409.311121123778
4 294.92025415983
4 289.399483813589
5 362.628945118559
5 319.580288798658
5 291.852388825242
5 348.756672933543
5 355.395789071128
5 311.906482526356
5 338.925041850865
5 278.725717702852
5 390.613777974745
5 325.027275786535
5 324.421609792921
5 369.950902724611
5 348.213941632025
5 256.900263546388
5 319.584803806607
5 445.919363155834
5 342.237941746688
5 268.430717535603
5 389.925869650247
5 274.447041794851
5 349.682848753411
5 387.636671326555
5 310.248960628656
5 308.359033726739
5 278.115609159542
5 337.310159083866
5 298.289214095598
5 229.340739437843
5 296.687792306548
5 290.884135506983
6 331.537358917635
6 358.383902410125
6 378.167932364209
6 376.341289435401
6 372.265727733814
6 283.145390573351
6 324.53203238423
6 314.624190794794
6 292.431222554342
6 292.096797679236
6 277.204592369405
6 384.16852009672
6 361.754833991345
6 390.342075042818
6 246.185358583153
6 317.414526425687
6 272.263298552057
6 338.814062213665
6 333.364115977724
6 351.032591760842
6 277.009952574836
6 258.506098217166
6 310.446538656309
6 427.194772137232
6 308.306722198109
6 330.277941449937
6 333.384130246759
6 341.043400205311
6 357.118708154739
6 300.641916299051
;
proc glm;
class level;
model change = level;
lsmeans level / pdiff = control('1') adjust = dunnett cl;
run;