View source: R/ctDiscretePars.R
ctStanParnames | R Documentation |
Gets internal stan parameter names of a ctStanFit object sampled via stan based on specified substrings.
ctStanParnames(x, substrings = c("pop_", "popsd"))
x |
ctStanFit object |
substrings |
vector of character strings, parameter names of the stan model containing any of these strings will be returned. Useful strings may be 'pop_' for population means, 'popsd' for population standard deviations, or specific combinations such as 'pop_DRIFT' for the population means of temporal dynamics parameters |
vector of character strings.
sunspots<-sunspot.year
sunspots<-sunspots[50: (length(sunspots) - (1988-1924))]
id <- 1
time <- 1749:1924
datalong <- cbind(id, time, sunspots)
#setup model
ssmodel <- ctModel(type='stanct', n.latent=2, n.manifest=1,
manifestNames='sunspots',
latentNames=c('ss_level', 'ss_velocity'),
LAMBDA=matrix(c( 1, 'ma1| log(1+(exp(param)))' ), nrow=1, ncol=2),
DRIFT=matrix(c(0, 'a21 | -log(1+exp(param))', 1, 'a22'), nrow=2, ncol=2),
MANIFESTMEANS=matrix(c('m1|param * 10 + 44'), nrow=1, ncol=1),
MANIFESTVAR=diag(0,1), #As per original spec
CINT=matrix(c(0, 0), nrow=2, ncol=1),
DIFFUSION=matrix(c(0, 0, 0, "diffusion"), ncol=2, nrow=2))
#fit
ssfit <- ctStanFit(datalong, ssmodel, iter=2,
optimize=FALSE, chains=1)
ctStanParnames(ssfit,substrings=c('pop_','popsd'))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.