S25_Descr-Stats

library(foreign)
ceosal1<-read.dta("http://fmwww.bc.edu/ec-p/data/wooldridge/ceosal1.dta")

sample average:

mean(ceosal1$salary)

[1] 1281.12

sample median:

median(ceosal1$salary)

[1] 1039

standard deviation:

sd(ceosal1$salary)

[1] 1372.345

summary information:

summary(ceosal1$salary)

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
    223     736    1039    1281    1407   14822 

correlation with ROE:

cor(ceosal1$salary, ceosal1$roe)

[1] 0.1148417