############## Law School example ##############

#LSAT1 and LSAT2 are randomly selected law schools data
LSAT1<-c(576,635,558,578,666,580,555,661,651,605,653,575,545,572,594)
GPA1 <-c(3.39,3.30,2.81,3.03,3.44,3.07,3.00,3.43,3.36,3.13,3.12,2.74,2.76,2.88,2.96)

LSAT2<-c(622,542,579,606,620,615,553,607,558,596,581,547,599,646,622,
         611,546,614,628,575,662,627,608,632,587,581,704,477,591,615,
         606,603,535,595,575,573,644,645,562,609,586,594,560,641,512,
         631,597,621,617,637,572,610,562,635,614,546,598,570,570,605,
         565,686,608,595,590,611,564)
GPA2<-c(3.23,2.83,3.24,3.09,3.10,3.40,2.97,2.91,3.11,3.24,3.22,2.91,
        3.23,3.47,3.15,3.33,2.99,3.19,3.03,3.01,3.39,3.41,3.04,3.29,
        3.16,3.17,3.36,2.57,3.02,3.37,3.20,3.23,2.98,3.11,2.92,2.85,
        3.38,3.27,3.19,3.17,3.11,3.05,2.93,3.28,3.01,3.21,3.32,3.24,
        3.03,3.33,3.08,3.13,3.01,3.30,3.15,2.82,3.20,3.01,2.92,3.45,
        3.15,3.50,3.16,3.19,3.15,3.16,3.02)

#LSAT and LSAT are all the 82 law schools data
LSAT<-c(LSAT1,LSAT2); GPA<-c(GPA1,GPA2)

############## Hormone example ##############

hormone<-data.frame(hrs=c(99,152,293,155,196,53,184,171,52,
                          376,385,402,29,76,296,151,171,209,
                          119,188,115,88,58,49,150,107,125),
                 amount=c(25.8,20.5,14.3,23.2,20.6,31.1,20.9,20.9,30.4,
                          16.3,11.6,11.8,32.5,32.0,18.0,24.1,26.5,25.8,
                          28.8,22.0,29.7,28.9,32.8,32.5,25.4,31.7,28.5))

################# Luteinizing hormone data #####################

lutein<-c(2.4,2.4,2.4,2.2,2.1,1.5,2.3,2.3,2.5,2.0,1.9,1.7,2.2,
          1.8,3.2,3.2,2.7,2.2,2.2,1.9,1.9,1.8,2.7,3.0,2.3,2.0,
          2.0,2.9,2.9,2.7,2.7,2.3,2.6,2.4,1.8,1.7,1.5,1.4,2.1,
          3.3,3.5,3.5,3.1,2.6,2.1,3.4,3.0,2.9)

################# Mouse data #####################

mouse <- c(52,104,146,10,50,31,40,27,46)

################# Cholostyramine Data #####################

library(bootstrap)
data(cholost)