Index a cia_chains object
Usage
# S3 method for class 'cia_chains'
list()[i, ...]
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[5]
#> [[1]]
#> $state
#> $state[[1]]
#> partition node
#> 1 1 D
#> 2 2 C
#> 3 3 A
#> 4 3 F
#> 5 4 B
#> 6 5 E
#>
#>
#> $log_score
#> [1] -24030.64
#>
#> $proposal_info
#> $proposal_info[[1]]
#> $proposal_info[[1]]$proposal_used
#> [1] "node_move"
#>
#>
#>
#> $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] -814.2907
#>
#>
#>
#> attr(,"class")
#> [1] "cia_chain"
#>
#> [[2]]
#> $state
#> $state[[1]]
#> partition node
#> 1 1 E
#> 2 2 A
#> 3 2 C
#> 4 3 D
#> 5 3 F
#> 6 4 B
#>
#>
#> $log_score
#> [1] -24146.49
#>
#> $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] -90.80115
#>
#>
#>
#> attr(,"class")
#> [1] "cia_chain"
#>
#> attr(,"class")
#> [1] "cia_chains"