R/setPackageSeedTP.R

Defines functions setPackageSeedTP

Documented in setPackageSeedTP

setPackageSeedTP <- function(seed=12345) {
	if ( !is.numeric(seed) ) {stop("Argument 'seed' must be numeric");}
	ll <- length(seed);
	if (ll < 6) {
		tmpseed<-12345;
		seed <- c( seed, rep(tmpseed,6-ll) );
	}
	if (ll > 6) {
		seed <- seed[1:6];
		warning( "Seed may not exceed the length of 6. Truncated to ", paste(seed, collapse=", ") );
	}
	return( invisible( .Call(Rf_rset_package_seed, as.double(seed), PACKAGE="TPmsm") ) );
} # setPackageSeedTP

Try the TPmsm package in your browser

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

TPmsm documentation built on May 29, 2024, 10:43 a.m.