R/print.qtest.R

In spqdep: Testing for Spatial Independence of Qualitative Data in Cross Section

print.qtest <- function(Q){
  # eso <- (QBoots$efp_symb/sum(QBoots$efp_symb[1,]))
  # t(apply(eso, 2, quantile, probs = c(0.05, 0.95),  na.rm = TRUE))
  #  QBoots$symb$p_symb
  # print(t(apply(eso, 2, quantile, probs = c(0.05, 0.95),  na.rm = TRUE)),digits = 3)
  }