test_that("permutationPlot works", {

  #permutation_result<-H0_test(classModel,n=6)

  ## Need to specify a object generated by H0_test
  expect_error(

  permutationPlot(classModel)
  )

})