# NOT RUN {
data(crabs,package = "MASS")
crabs$sex <- as.character(crabs$sex)
crabs$sex[crabs$sex=="M"]=0
crabs$sex[crabs$sex=="F"]=1
crabs$sex = as.numeric(crabs$sex)
attach(crabs)
##Setting
y <- BD
x <- cbind(1,FL,sex)
#Finding the best model for the 3rd quartile based on Akaike criterion
res = best.lqr(y, x, p = 0.75, criterion = "AIC")
# }
Run the code above in your browser using DataLab