Index a cia_chain object

Usage

# S3 method for class 'cia_chain'
list()[i, ...]

Arguments

x: A cia_chain object.
i: An index.
...: ellipsis for extra indexing parameters.

Value

A cia_chain.

Examples

data <- bnlearn::learning.test

scorer <- CreateScorer(
  scorer = BNLearnScorer, 
  data = data
  )
init_state <- InitPartition(colnames(data), scorer)

results <- SampleChains(10, init_state, PartitionMCMC(), scorer)
results[[1]][5]
#> $state
#> $state[[1]]
#>   partition node
#> 1         1    A
#> 2         2    E
#> 3         3    B
#> 4         4    C
#> 5         4    F
#> 6         5    D
#> 
#> 
#> $log_score
#> [1] -24074.24
#> 
#> $proposal_info
#> $proposal_info[[1]]
#> $proposal_info[[1]]$proposal_used
#> [1] "swap_node"
#> 
#> 
#> 
#> $mcmc_info
#> $mcmc_info[[1]]
#> $mcmc_info[[1]]$accept
#> [1] FALSE
#> 
#> $mcmc_info[[1]]$white_obeyed
#> [1] TRUE
#> 
#> $mcmc_info[[1]]$black_obeyed
#> [1] TRUE
#> 
#> $mcmc_info[[1]]$jac
#> [1] 0
#> 
#> $mcmc_info[[1]]$mhr
#> [1] -73.37069
#> 
#> 
#> 
#> attr(,"class")
#> [1] "cia_chain"