R/print.haplin.ready.R

Defines functions print.haplin.ready

print.haplin.ready <- function( x, ... ){
	cat( "
		This is preprocessed data, ready for haplin analysis.\n
		It contains the following parts:\n  ", paste( names( x ), collapse = ", " ), "\n
		with following dimensions:
	" )
	if( !is.null( x$cov.data ) ){
		cat( "  - number of covariate variables = ", ncol( x$cov.data ), ",\n" )
	} else {
		cat( "  - no covariate variables,\n" )
	}
	cat( "  - number of markers = ", length( x$aux$marker.names ), ",\n" )
	cat( "  - number of individuals/families = ", nrow( x$gen.data[[ 1 ]] ), "\n" )
}

Try the Haplin package in your browser

Any scripts or data that you put into this service are public.

Haplin documentation built on Sept. 11, 2024, 7:13 p.m.