test_that("Compute Influence term2 fixed point integration", {
    # source(system.file("examples/recreate_original.R", package='SensIAT'))
    # expect_identical(attr(fixed.object$influence[[3]]$term2, 'fcnt'),
    #           vector(mode='list', length=100))
    # expect_identical(attr(fixed.object$influence[[3]]$term2, 'estim.prec'),
    #           vector(mode='list', length=100))
})