wage.rates {SMNCensReg}

Wage Rates of 753 Women

Description

Wage rates of 753 married white women with left censoring.

Usage

data(wage.rates)

Format

A data frame with 753 observed wage rates of married white women in 1975. Some wage rates are set equal to zero, this means that those wives did not work in 1975, therefore, these observations are considered left censored at zero.

Source

Mroz, T.A. 1987. "The sesitivity of an empirical model of married women?s hours of work to economic and statistical assumptions".

Examples

##Load the data
data(wage.rates)

##Set the response y and covariate x
y <- wage.rates$wage
x <- cbind(1,wage.rates$age,wage.rates$educ,wage.rates$kidslt6,wage.rates$kidsge6)
cc<- c(rep(0,428),rep(1,325))

##Fits a left censored Student-t model to the data

T <- CensReg.SMN(cc,x,y,nu=3,cens="left",dist="T",show.envelope="TRUE")

##Fits a left censored Normal model to the data

Normal <- CensReg.SMN(cc,x,y,cens="left",dist="Normal",show.envelope="TRUE")