Merge pull request #154 from Nosferican/Rank-Deficient-Test

Add test for rank deficient

Author: dmbates

test/pls.jl

@@ -239,3 +239,11 @@ end
     @test size(dfr) == (10, 5)
     @test names(dfr) == Symbol[:obj, :σ, :β₁, :θ₁, :σ₁]
 end
+
+@testset "Rank deficient" begin
+    Random.seed!(0)
+    data = DataFrame(x = rand(100), y = rand(100), z = repeat(1:20, 5))
+    data.x2 = 1.5 * data.x
+    model = fit(LinearMixedModel, @formula(y ~ x + x2 + (1|z)), data)
+    @test length(fixef(model)) == 2
+end