Out <- lad(wtlnlctm~-1+wt+wtwidrat,data = lahontan,quant = .9)
Out1 <- lad(wtlnlctm~-1+wt,data = lahontan,quant = .9)
Out2 <- lad(wtlnlctm~-1+wtwidrat,data = lahontan,quant = .9)
Test.Out <- hypothesis.test(Out,Out1,double.permutation = TRUE)
summary(Test.Out)
Test.Out <- hypothesis.test(Out,Out2,double.permutation = TRUE)
summary(Test.Out)
Run the code above in your browser using DataLab