problem in sumspict.parest

[ichimomo]

Hello,

I found a minor issue in sumspict.parest.

In the codes below using 'get.par' function, the confidence interval range of "CI" should be specified as get.par(XXXX, CI=CI). As a result of this problem, the argument of CI of sumspict.parest doesn't work for fixed parameters.

spict/spict/R/summary.R

Lines 217 to 223 in cdf3f5c

	derout <- rbind(get.par(parname='logbeta', rep, exp=TRUE)[, order],
	get.par(parname='logr', rep, exp=TRUE)[, order],
	get.par(parname='logrc', rep, exp=TRUE)[, order],
	get.par(parname='logrold', rep, exp=TRUE)[, order])
	if (nalpha > 0){
	derout <- rbind(get.par(parname='logalpha', rep, exp=TRUE)[1:nalpha, order],
	derout)