R/summary.LMbasic.R

Defines functions summary.LMbasic

Documented in summary.LMbasic

summary.LMbasic<-function(object,...){ 
piv = cbind(est_piv = object$piv)
k = length(piv)
cat("Call:\n")
print(object$call)
cat("\nCoefficients:\n")
cat("\nInitial probabilities:\n")
print(round(piv,4))
if(is.null(object$sepiv)==FALSE){
	cat("\nStandard errors for the initial probabilities:\n")	
	print(round(cbind(se_piv = object$sepiv),4))
}
TT = dim(object$Pi)[3]
cat("\nTransition probabilities:\n")
if(k==1){
	print(object$Pi)
}else{ 
	if(!is.null(object$call$modBasic)){
		if(object$call$modBasic==1) print(round(object$Pi[,,2],4)) else print(round(object$Pi[,,2:TT],4))
	}else print(round(object$Pi[,,2:TT],4))
}	
if(is.null(object$sePi)==FALSE){
	cat("\nStandard errors for the transition probabilities:\n")
	if(k==1){
		print(object$Pi)
	}else{
		if(!is.null(object$call$modBasic)){
			if(object$call$modBasic==1) print(round(object$sePi[,,2],4)) else print(round(object$sePi[,,2:TT],4))
		}else print(round(object$sePi[,,2:TT],4))
	}	
}	
cat("\nConditional response probabilities:\n")
print(round(object$Psi,4))
if(is.null(object$sePsi)==FALSE){
	cat("\nStandard errors for the conditional response probabilities:\n")
	print(round(object$sePsi,4))
}
}

Try the LMest package in your browser

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

LMest documentation built on Sept. 16, 2024, 1:07 a.m.