tests/testthat/test-erfe.R

In erfe: Fits Expectile Regression for Panel Fixed Effect Model

test_that("Output are not missing and standard errore is positif", {
    outlist <- erfe(predictors=cbind(
      sim_panel_data$pred1, 
      sim_panel_data$pred2),
                response=sim_panel_data$resp, 
                asymp=c(0.25,0.5,0.75), 
                id=sim_panel_data$id)
    out <- outlist[[3]] 
    expect_equal(out$asymPoint, 0.75)
    expect_equal(sum(is.na(out$coefEst)), 0)
    expect_equal(sum(is.na(out$standardError)), 0)
    
    expect_true(all(out$standardError>0))
    
})