network <- load_amidst_bn(system.file("extdata","WasteIncinerator.bn",
package="ramidst"))
sample_stream <- amidst_data_stream(system.file("extdata",
"WasteIncineratorSample.arff",package="ramidst"))
posterior <- importance_sampling_from_stream(network,"B",c("F","E"),
sample_stream,50L)
posterior
posterior <- importance_sampling_from_stream(network,"L",c("F","E"),
sample_stream,50L)
posterior
Run the code above in your browser using DataLab