Description Usage Arguments Author(s) See Also Examples
Reduces the rows of an twDEMC object (list returned by twDEMCBlockInt) to correspond to a thinning of newThin.
| 1 2 3 | 
| x | the twDEMC list to thin | 
| newThin | finite numeric scalar: the target thinning factor, must be positive multiple of x$thin | 
| start | numeric scalar: the start time of the chain. Note that time starts from zero. If a vector or matrix is supplied (e.g. nGenBurnin) then the maximum is used | 
| end | numeric scalar: the maximum end time of the chains. Note that time starts from zero. If a vector or matrix is supplied (e.g. nGenBurnin) then the maximum is used | 
| ... | |
| doKeepBatchCall | wheter to retain the batch call attribute of x | 
Thomas Wutzler
| 1 2 3 4 5 6 7 8 9 10 | data(twdemcEx1)
x <- twdemcEx1
c( nGen=getNGen(twdemcEx1), thin=twdemcEx1$thin, nSample=getNSamples(twdemcEx1) )
    .nGenBurnin <- max(getNGen(twdemcEx1))-70
thinned <- thin(twdemcEx1, start=.nGenBurnin)	# removing burnin period
c( nGen=getNGen(thinned), thin=thinned$thin, nSample=getNSamples(thinned), nGenBurnin=thinned$nGenBurnin )	#18 sample describing 68 generations
thinned <- thin(twdemcEx1, start=.nGenBurnin, newThin=8)	
c( nGen=getNGen(thinned), thin=thinned$thin, nSample=getNSamples(thinned), nGenBurnin=thinned$nGenBurnin )	#9 samples describing 64 generations
 | 
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.