print.BAMSE {BAMSE} | R Documentation |
~~ A concise (1-5 lines) description of what the function does. ~~
print.BAMSE(x)
x |
~~Describe x here~~ |
~~ If necessary, more details than the description above ~~
~Describe the value returned If it is a LIST, use
comp1 |
Description of 'comp1' |
comp2 |
Description of 'comp2' |
...
....
~~further notes~~
~Make other sections like Warning with section{Warning }{....} ~
~~who you are~~
~put references to the literature/web site here ~
~~objects to See Also as help
, ~~~
##---- Should be DIRECTLY executable !! ---- ##-- ==> Define data, use random, ##-- or do help(data=index) for the standard data sets. ## The function is currently defined as function(x){ if (!inherits(x, "BAMSE")) stop("Not an object of class BAMSE!") cat("-------The Data-----") print(structure(list(data.file = x$file, result.file = x$name,"number of SNPs"=x$snp,"number of environmental factors"=x$env,"number of adjusment factors"=x$adj,"number of individuals"=x$individuals), class = "power.htest")) cat("-------MCMC settings-----") print(structure(list(run.time = x$runtime, pre.removed.burnin=x$burnin,"The thinning rate"=x$thinning), class = "power.htest")) cat("-------Priors-----") print(structure(list(kappa=x$kappa,"kappa multiplied"=x$kappa.multi,"mean of risk sets"=paste(x$mu,"(",x$mid,")",sep=""),"active parameters"=paste(x$min.active,"-",x$max.active,sep=""),"number of risk sets"=paste(x$min.risksets,"-",x$max.risksets,sep=""),"prior for the number of active parameter"=paste("Geo(",x$prior.active.parameters,")",sep=""),"prior for the number of risk sets"=paste("Geo(",x$prior.riskset,")",sep="")), class = "power.htest")) #cat("-------Results-----\n") #print(structure(list(), class = "power.htest")) }