Generate a Markov chain for n individuals or units by specifying a transition matrix.
addMarkov(
dd,
transMat,
chainLen,
wide = FALSE,
id = "id",
pername = "period",
varname = "state",
widePrefix = "S",
start0lab = NULL,
trimvalue = NULL
)data.table with a unique identifier
Square transition matrix where the sum of each row must equal 1. The dimensions of the matrix equal the number of possible states.
Length of each chain that will be generated for each chain; minimum chain length is 2.
Logical variable (TRUE or FALSE) indicating whether the resulting data table should be returned in wide or long format. The wide format includes all elements of a chain on a single row; the long format includes each element of a chain in its own row. The default is wide = FALSE, so the long format is returned by default.
Character string that represents name of "id" field. Defaults to "id".
Character string that represents the variable name of the chain sequence in the long format. Defaults "period",
Character string that represents the variable name of the state in the long format. Defaults to "state".
Character string that represents the variable name prefix for the state fields in the wide format. Defaults to "S".
Character string that represents name of the integer field containing starting state (State 0) of the chain for each individual. If it is NULL, starting state defaults to 1. Default is NULL.
Integer value indicating end state. If trimvalue is not NULL, all records after the first instance of state = trimvalue will be deleted.
A data table with n rows if in wide format, or n by chainLen rows if in long format.
def1 <- defData(varname = "x1", formula = 0, variance = 1)
def1 <- defData(def1, varname = "x2", formula = 0, variance = 1)
def1 <- defData(def1,
varname = "S0", formula = ".6;.3;.1",
dist = "categorical"
)
dd <- genData(20, def1)
# Transition matrix P
P <- t(matrix(c(
0.7, 0.2, 0.1,
0.5, 0.3, 0.2,
0.0, 0.7, 0.3
),
nrow = 3
))
d1 <- addMarkov(dd, P, chainLen = 3)
d2 <- addMarkov(dd, P, chainLen = 5, wide = TRUE)
d3 <- addMarkov(dd, P, chainLen = 5, wide = TRUE, start0lab = "S0")
d4 <- addMarkov(dd, P, chainLen = 5, start0lab = "S0", trimvalue = 3)