R/print.parafit.R

   1 'print.parafit' <-
   2     function(x, ...)
   3 {
   4         cat("\nTest of host-parasite coevolution",'\n','\n')
   5
   6         cat("Global test:  ParaFitGlobal =",x$ParaFitGlobal,", p-value =", x$p.global, "(", x$nperm,"permutations)",'\n','\n')
   7
   8         n.links <- nrow(x$link.table)
   9         cat("There are",n.links,"host-parasite links in matrix HP",'\n','\n')
  10         cat("Test of individual host-parasite links", "(", x$nperm, "permutations)",'\n','\n')
  11         print(x$link.table)
  12
  13         cat('\n',"Number of parasites per host",'\n')
  14         print(x$para.per.host)
  15         cat('\n',"Number of hosts per parasite",'\n')
  16         print(x$host.per.para)
  17     invisible(x)
  18 }