print.BAMSE {BAMSE}R Documentation

~~function to do ... ~~

Description

~~ A concise (1-5 lines) description of what the function does. ~~

Usage

print.BAMSE(x)

Arguments

x ~~Describe x here~~

Details

~~ If necessary, more details than the description above ~~

Value

~Describe the value returned If it is a LIST, use

comp1 Description of 'comp1'
comp2 Description of 'comp2'

...

Warning

....

Note

~~further notes~~

~Make other sections like Warning with section{Warning }{....} ~

Author(s)

~~who you are~~

References

~put references to the literature/web site here ~

See Also

~~objects to See Also as help, ~~~

Examples

##---- 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"))

  }

[Package BAMSE version 2.0 Index]