]> git.donarmstrong.com Git - ape.git/blob - R/print.parafit.R
various fixes in C files
[ape.git] / 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 }