Bayesian nonparametric inference with inferno

This vignette gives an introduction and guide to the kinds of Bayesian nonparametric inference that can be done with inferno, by means of a concrete example. It also has the purpose to clarify the terminology used in the inferno package.

Before we start

It is of course impossible to summarize this branch of probability theory and of statistics in a couple of sections; you’re invited to learn more for instance from the texts given in the references.

Two extremely important warnings before you follow the example:

Some terms may sound familiar to you, but keep in mind that they may have quite different meanings from what you’re used to. This is especially true of the terms in boldface. When you see a term in boldface, try to understand its meaning from the way it’s used, rather than assuming the meaning familiar to you. Different methods and different disciplines unfortunately use the same terms in different ways.

In particular keep in mind that the term probability does not mean frequency. ‘Probability’ means ‘plausibility’, or ‘credibility’, or ‘degree of belief’: it is a quantification of our uncertainty about some possible fact. There is a connection between probability and frequency, but they are not the same. This distinction is important, because one of the main problems in statistical inference is that we are uncertain about the frequency of something – the occurrence of a disease, of a symptom, or of other characteristics – and our goal is to quantify and reduce that uncertainty as much as possible. The frequency of something in a population or group or collection is a static value, often unknown. Probability is something dynamic: it updates when new information becomes available.
The example that follows is, like every example, very specific. But try to see the more general, abstract picture behind it, and to see how its general methodology could be applied to your own research. From time to time we shall draw analogies with other examples that may look very different and yet use essentially the same methodology.

You’re now welcome to open R in your favourite integrated development environment, choose a directory to work in, and test yourself the code that follows. Let’s start by loading the inferno package:

library('inferno')

In our example we shall use data from the penguins dataset, included in R version 4.5.0 and above. We shuffle this dataset to erase any particular ordering of its data, and call the new dataset penguin (without the final ‘s’). For your convenience you can download the shuffled dataset as the CSV file 'penguin_data.csv'. Otherwise you can create such file from R 4.5.0 or above as follows:

set.seed(50) ## replace with your favourite seed number

penguin <- penguins[sample(1:nrow(penguins)), ] ## shuffle

write.csvi(penguin, file = 'penguin_data.csv')

The utility function write.csvi() saves the dataset as a CSV file that respects the formatting rules required by inferno.

We assume that you now have the 'penguin_data.csv' file.

Penguins

We are researchers interested in penguins; specifically the population living in the Antarctic islands Biscoe, Dream, Torgersen. Our research questions are not yet precisely defined, but some initial questions of interest are the following. The penguins can be of three species: Adélie, Chinstrap, Gentoo; we’d like to know:

Q1: What’s the overall statistical occurrence of the three species, independently of location or other details? In other words, what is the relative frequency of each species in the population?
Q2: Do the three species differ, statistically, in some physical or geographical characteristic such as sex or island of origin? We say “statistically” because, for instance, there surely are females and males of every species, but it’s possible that for one of the species the ratio of females to males is higher than for another species.
Q3: Is there a physical or geographical characteristic that allows us to make a good guess about a penguin’s species? We say “guess” because, for instance, from knowing which island a penguin comes from we can’t be 100% sure about that penguin’s species.

In order to approach these and other future questions, we decide which set of penguin characteristics we should consider and observe. These characteristics are called the variates of the population. This set can be extended or reduced later on. Guided by previous studies, or by some hypotheses we are entertaining, we choose the following variates, each denoted by a short codeword:

Species (species)
Island (island)
Bill (bill_len): the length of a penguin’s “beak” in millimetres
Bill depth (bill_dep): the depth of a penguin’s “beak” in millimetres
Flipper length (flipper_len): the length of a penguin’s “wing” in millimetres
Body mass (body_mass) in grams
Sex (sex)
Study year (year): the year a penguin was observed and measured

We include the last variate because there could be time trends in the values we observe. For instance, a particular species might have more females than males during one year, and vice versa during another year.

“Population”?

The question of time-trends leads us to more general considerations and questions about statistical research, which unfortunately are often forgotten.

To start with: this “population” which we want to study, how is it defined exactly? What counts as a member of the population, and what doesn’t? For example, a seal clearly doesn’t count, because it isn’t a penguin. A penguin from the Galápagos island doesn’t count either, because it isn’t from one of the three Antarctic islands we specified. But does a penguin who was alive in the year 1830 count? what about one who will live in those islands in the year 2100? Does a penguin with some kind of notable physical impairment count? Does a penguin who only lived 1 year count? Does a penguin born in the Galápagos island but subsequently transported to the Antarctic islands count?

No matter which research field you work in, you realize that analogous questions appear when you try to define the “population” in some study.

It is practically impossible to specify an exact criterion for membership in a population under study. We may try to cover and delimit as many factors as possible, but there may always appear a new one we didn’t think of. There’s no “objective” specification of a population: the specification depends on our research purpose – which often is not precisely specified either. We must therefore always be prepared to further specify the population of our study. In some cases we may even need to modify our previous specification, and thus discard some data or acquire new ones.

The intrinsic and unavoidable problem in the specification of a population has important consequences for the way we observe and measure the population and its variates. We now turn to this problem.

Sampling

Our questions Q1, Q2, Q3 could have exact statistical answers if we had a complete census of the penguin population; that is, if we went and “measured” the values of the variates in each and every penguin of the population.

To make this point clearer, imagine a slightly different population. Suppose we were interested only in all the penguins alive today on a specific, very small island. The island turns out to have 17 penguins. We check all of them. We find that 6 of these are females, and 11 are males. It’s then a fact that 6/17${}$35.3% of penguins in this specific population are females, and 64.7% are males. And if someone picked a penguin from this population and asked us to guess its sex, we would give a 35.3% probability to that penguin’s being female, and 64.7% to its being male.¹

But it is often impractical or impossible to take a complete census. Think of the case were the whole population includes members or variates that will only exist in the future. For this reason we proceed as follows: we observe a sample of the whole population, and from the study of this sample we try to infer the statistical properties of the whole population. Our inferences are perforce uncertain: we can’t be fully sure about the exact statistical properties of the whole population. The essential point is that our uncertainty is not just a matter of “I don’t know” versus “I know”:

we can quantify our uncertainty;
we can reduce our uncertainty, sometimes to the point where it becomes almost a certainty.

Some trusted colleagues thus go to the three islands, and examine samples of penguins there, sending back the values they observe. The way they do the sampling would require a deep analysis and discussion, but for the moment we put these aside.

How many samples should our colleagues collect? The short answer is: as many as they can. The more samples we have, the more certain our conclusions will be – all kinds of conclusions: for instance those that may reveal the presence, as well as those that may reveal the absence, of important associations.

One important feature of Bayesian inference is that we don’t need to choose beforehand when to stop sampling. We can monitor the results as more and more samples arrive, and stop as soon as the level of certainty about the results is satisfactory. This is possible because in Bayesian inference the sample size affects only the uncertainty we have of the ground truth – association, effect, or other hypothesis – but it cannot affect the ground truth itself. If the truth is that “there is no effect”, then this truth will come to light with more and more certainty as we increase the sample size, and no amount of sampling will be able to change this truth.

How to use the sample data

A first, preliminary analysis

Imagine that, a while after the sampling begun, our colleagues start sending the collected sample data to us, a little batch at a time. For the moment we assume that the batches are chosen without any systematic order; in particular, their order is unrelated to the time of sampling. We make this assumption in order to avoid trends, which we’ll discuss in another vignette.

We receive the first 10 samples from our sampling survey and store them in the file 'penguin_data10.csv', respecting the formatting rules required by inferno:

datafile <- 'penguin_data10.csv'
write.csvi(penguin[1:10, ], datafile) ## write the first 10 samples

Here they are:

	species	island	bill_len	bill_dep	flipper_len	body_mass	sex	year
1	Adelie	Torgersen	37.8	17.1	186	3300		2007
2	Chinstrap	Dream	54.2	20.8	201	4300	male	2008
3	Adelie	Dream	36.2	17.3	187	3300	female	2008
4	Chinstrap	Dream	52.0	19.0	197	4150	male	2007
5	Gentoo	Biscoe	45.3	13.7	210	4300	female	2008
6	Gentoo	Biscoe						2009
7	Adelie	Torgersen	42.5	20.7	197	4500	male	2007
8	Gentoo	Biscoe	48.5	15.0	219	4850	female	2009
9	Chinstrap	Dream	46.5	17.9	192	3500	female	2007
10	Gentoo	Biscoe	46.9	14.6	222	4875	female	2009

If you generated the penguin dataset yourself, then your first 10 samples may be different.

In the data above, samples #1 and #6 have one or more missing variates. But incomplete data are not a problem: inferences can still be performed from them, because Bayesian methods and inferno automatically perform imputation of missing data, and they do so in a principled way (via the marginalization rule of probability theory).

With these datapoints we start our Bayesian nonparametric analysis using inferno!

There are now two preliminary steps, which we must usually follow to perform an analysis:

Determine and prepare the metadata about the variates of interest.
Perform the general inference about the whole population from the sampled data; we shall call this learning from the sample data.

Metadata preparation

Metadata are “data about the data”. They must be provided in a CSV file respecting the formatting rules, or as a data.frame, and consist of around eight pieces of information about the variates of our population:

Variate name (name)

This is a character or string: name of a variate. Different variates should obviously have different names.

Variate type (type)

inferno can handle three kinds of variates:

nominal: it can take on a finite number of discrete values, which do not have any natural ordering. Examples could be sex or geographical location.
ordinal: it can take on a finite number of discrete values, which do have a natural ordering. They can be qualitative or numeric. Examples could be the degree of satisfaction of a customer, or the severity of a disease, or a Likert scale.
continuous: it can in principle take on an infinite number of continuous values, although they can be discretized or rounded. Examples could be age or weight.

Many other types of variates exist. For example images and audio are also types of variates; but inferno cannot handle these complex types. A simple type of variate that inferno cannot properly handle is the cyclic one, such as time of day. There are no clear-cut separations between different types of variates; thus it’s sometimes difficult to assess the type.

Domain minimum and maximum (domainmin, domainmax)

These are numbers, only defined for numeric-ordinal and continuous variates. These metadata are the minimum and maximum value a variate can take on in a given study. For example, in a study about health or employment of adults, a variate age might have a minimum of 18 years. In a more general study involving people of all ages, the minimum would be 0. In a health study where people of 90 years or more are pooled together, the maximum would be 90 years. A minimum could also be minus-infinity, and a maximum plus-infinity. Obviously the minimum should be lower than the maximum.

Sometimes the minimum or maximum is not clear-cut. For instance, there is no theoretical maximum on a person’s age, although we can consider an age of 300 impossible to reach today. In such cases the maximum or minimum can be taken to be plus or minus infinity.

Interval between values (datastep)

This is a positive number, only defined for numeric-ordinal and continuous variates. It is the separation between consecutive values. For example, in a 1–5 Likert-scale variate, the interval is 1. For an age variate expressed in and rounded to years, the interval is 1. For a length variate expressed in centimetres and rounded to millimetres, the interval is 0.1.

Inclusion of inimum and maximum (minincluded, maxincluded)

These are logical or yes/no, only defined for continuous variates. They tell whether the minimum and maximum of a continuous variate are themselves possible values or not. Often such extreme values have a special meaning, and this information is important with censored or pooled data. For example, a length continuous variate might be expressed in decimetres and reported without rounding, but all lengths above 1 dm might be pooled together into the value “1 dm or more”; in such case we must make sure to state that maxincluded is TRUE or "yes".

Values (V1, V2, …)

These are characters or strings, only defined for nominal or non-numeric ordinal variates. They are the values that a nominal or ordinal variate can in principle take on in the population of interest. Note that they are include not only the values that are observed in a sample, but also those that could be observed in the rest of the population. A nominal or ordinal variate must have at least two distinct values; it wouldn’t make much sense to draw inferences about it otherwise. The metadata file can contain further empty V… columns.

Why does inferno need metadata?

Because it performs nonparametric inference. In other words, it does not assume the frequency distribution of the variates in the whole population to have any specific class of shapes, such as a Gaussians; nor does it assume any functional relation at all, as instead is the case for, say, linear regression. Bayesian nonparametric population inference and inferno try to extrapolate the frequency distribution of the whole population from the sample data provided. We must therefore provide to inferno the same general information that we ourselves have about the variates, and about any artificial modifications performed on their values, such as rounding or pooling.

In order to prepare the metadata file we can use inferno’s metadatatemplate() helper function. This function reads the sample data and prepares a preliminary file containing heuristic guesses about the metadata. We must then check and correct this file. The function motivates its guesses and warns about especially uncertain ones. Here is the code to generate a 'penguin_metadata.csv' file, and the output and warnings of the helper function:

metadatafile <- 'penguin_metadata.csv'

metadatatemplate(data = datafile, file = metadatafile)
# Analyzing 8 variates for 10 datapoints.
# 
# * "species" variate:
#   -  3 different  values detected:
#  "Adelie", "Chinstrap", "Gentoo" 
#   which do not seem to refer to an ordered scale.
#   Assuming variate to be NOMINAL.
# 
# * "island" variate:
#   -  3 different  values detected:
#  "Biscoe", "Dream", "Torgersen" 
#   which do not seem to refer to an ordered scale.
#   Assuming variate to be NOMINAL.
# 
# * "bill_len" variate:
#   - Numeric values between 36.2 and 54.2 
#   Assuming variate to be CONTINUOUS.
#   - Distance between datapoints is a multiple of 0.1 
#   Assuming variate to be ROUNDED.
#   - All values are positive
#   Assuming "domainmin" to be 0
# 
# * "bill_dep" variate:
#   - Numeric values between 13.7 and 20.8 
#   Assuming variate to be CONTINUOUS.
#   - Distance between datapoints is a multiple of 0.1 
#   Assuming variate to be ROUNDED.
#   - All values are positive
#   Assuming "domainmin" to be 0
# 
# * "flipper_len" variate:
#   - Only 8 different numeric values detected:
# from 186 to 222 in steps of 1 
#   Assuming variate to be ORDINAL.
# 
# * "body_mass" variate:
#   - Only 7 different numeric values detected:
# from 3300 to 4875 in steps of 25 
#   Assuming variate to be ORDINAL.
# 
# * "sex" variate:
#   -  2 different  values detected:
#  "female", "male" 
#   which do not seem to refer to an ordered scale.
#   Assuming variate to be NOMINAL.
# 
# * "year" variate:
#   - Only 3 different numeric values detected:
# from 2007 to 2009 in steps of 1 
#   Assuming variate to be ORDINAL.
# 
# =========
# WARNINGS - please make sure to check these variates in the metadata file:
# 
# * "year" variate appears to have been rounded
# and then transformed to logarithmic scale.
# This may lead to problems in the inference.
# Preferably, transform it back to non-logarithmic scale.
# =========
# 
# Saved proposal metadata file as "penguin_metadata.csv"

The preliminary metadata file created by metadatatemplate() looks like this:

name	type	domainmin	domainmax	datastep	V1	V2	V3
species	nominal				Adelie	Chinstrap	Gentoo
island	nominal				Biscoe	Dream	Torgersen
bill_len	continuous	0		0.1
bill_dep	continuous	0		0.1
flipper_len	ordinal	186	222	1.0
body_mass	ordinal	3300	4875	25.0
sex	nominal				female	male
year	ordinal	2007	2009	1.0

If you generated the penguin dataset yourself, then you might obtain different guesses. Try to follow the following guidelines for the present example.

We see that metadatatemplate() guessed correctly about the species, island, sex variates: they are of 'nominal' type, and all their possible values are correctly listed. If any of the possible values are missing from the sample, and therefore missing in the preliminary metadata, then we should add them under the additional V… columns. Note that we can sort the nominal values in any order we please.

Also the bill_len and bill_dep variates are correct: they are continuous, rounded to the nearest tenth of millimetre, and cannot be less than zero. The absence of domainmax values means that the theoretical maximum is plus infinity. We could replace this maximum with something more realistic, for instance 1000 mm or less, but typically this kind of changes do not lead to relevant differences in our inferences. The absence of minincluded means that the minimum, 0, is not a possible value; similarly for maxincluded.

The year variate is correctly classified as ordinal, with values between 2007 and 2009. If the sampling had a later end date, we would correct the 2009 value. The year variate could alternatively be considered continuous and rounded; in the present case this alternative classification wouldn’t affect our inferences: inferno treats this kind of ambiguous cases in the same way.

Also the sex variate is correctly guessed: nominal type with possible values 'female' and 'male'.

The guesses about the flipper_len and body_mass variates are not correct, however: these variates are continuous, with a minimal value of 0 and no maximal value. They are rounded to 1 mm and 25 g (this was correctly guessed).

We must open the preliminary metadata file 'penguin_metadata.csv' with our favourite editor, and correct and complete the guesses of the helper function. In this case we end up with the following corrected metadata file, also available for download as 'penguin_data.csv':

name	type	domainmin	domainmax	datastep	V1	V2	V3
species	nominal				Adelie	Chinstrap	Gentoo
island	nominal				Biscoe	Dream	Torgersen
bill_len	continuous	0		0.1
bill_dep	continuous	0		0.1
flipper_len	continuous	0		1.0
body_mass	continuous	0		25.0
sex	nominal				female	male
year	ordinal	2007	2009	1.0

“Learning” and extrapolating from the sample data

Now comes the essential part of our analysis: from the sample data and the metadata information,inferno will draw inferences about the whole population of penguins, including new penguins (from the same population) that we shall observe in the future. Subsequent analyses are based on this main inference. The general theory behind this kind of inference, based on the property of exchangeability and related mathematical theorems, is explained in the references.

This inference is performed by calling the learn() function. Its minimal arguments are three: the sample data, the metadata, and the name outputdir of a directory where the inference results should be saved; some additional information will be suffixed to this directory name. We can also give a numeric seed argument if we want to reproduce the same output in another run, and a parallel argument specifying the number of cores to be used for parallel computation.

This function in fact does Monte Carlo sampling and is computationally expensive. It may take minutes, hours, or days to run, depending on the amount of sample data and the number of variates. In order to speed up its computations, it tries to use any multi-cores capabilities of the machine it runs in, or the number of cores specified in the parallel argument (which shouldn’t be larger than the number of cores you actually have!).

The output below was obtained from running learn() on 4 cores – please wait before running this code, it might take longer time on your computer:

learnt10 <- learn(
    data = datafile,
    metadata = metadatafile,
    outputdir = 'penguin_inference',
    seed = 16, ## for reproducibility
    parallel = 4 ## how many cores to use for the computation
)
# Registered doParallelSNOW with 4 workers
# Calculating auxiliary metadata
# 
# Learning:  10 datapoints,  8 variates
# 
#  *************************************************** 
#  Saving output in directory
#  penguin_inference-261031T122336-vrt8_dat10_smp3600 
#  *************************************************** 
# Starting Monte Carlo sampling of 3600 samples by 60 chains
# in a space of 1027 (effectively 3851) dimensions.
# Using 4 cores: 60 samples per chain, max 15 chains per core.
# Core logs are being saved in individual files.
# 
# C-compiling samplers appropriate to the variates (package Nimble)
# this can take tens of minutes. Please wait...
# Compiled core 1. Number of samplers: 1078.       
# Estimating remaining time, please be patient...
# Sampling. Core 4 estimated end time: 2026-10-31 12:31
# Finished Monte Carlo sampling.                                 
# Highest number of Monte Carlo iterations across chains: 3600 
# Highest number of used mixture components: 10 
# 
# Checking test data
# ( #1 #3 #4 #5 #6 #7 #8 #9 #10 )
# 
# rel. MC standard error: min: 0.017  max: 0.048  mean: 0.025 
# eff. sample size: min: 430  max: 3500  mean: 2200 
# needed thinning: min: 2  max: 13  mean: 4.1 
# average: min: 1.6e-08  max: 0.12  mean: 0.014 
# 
# Plotting final Monte Carlo traces and marginal samples...
# 
# Total computation time: 4.7 mins 
# Average preparation & finalization time: 1 mins 
# Average Monte Carlo time per chain: 13 secs 
# Max total memory used: approx 3500 MB
# Max memory used per core: approx 860 MB
#
# Removing temporary output files.
# Finished.
# 
# Closing connections to cores.

The initial output gives a summary of the sample size, number of variates, saving directory, and other computational details. The “estimated end time” line is updated from time to time with a better estimate of the computation’s end time. Once the computation is finished, some final information about the underlying Monte Carlo computation and time and memory use is provided.² Note that the inference above, with 10 sample data and 8 variates, took around 4 GB and 5 minutes to complete on 4 cores.

The results of this main inference are now stored in the compressed file 'learnt.rds' (around 30 MB) within the specified output directory. The name of this directory is also saved as the final value of the learn() function. We saved this directory name in the learnt10 variable in the code above, by invoking learnt10 <- learn(...).

For your convenience the object produced by the computation above can be downloaded as the file 'learnt10.rds'. Once you have downloaded it in your working directory you can just invoke

learnt10 <- 'learnt10.rds'

which produces an object learnt10 (just a string, in this case) which can be used in the following analysis.

Analysis example: frequencies of species

Estimating relative frequencies

Consider our first research question Q1: what’s the overall statistical occurrence of the three species in the whole population? The relative frequencies of the three species in the whole population are unknown to us, so we cannot give a simple answer such as “Adélie: 0.10, Chinstrap: 0.34, Gentoo: 0.56”.

Bayesian nonparametrics and inferno give a first answer to this question in the form of:

an estimate of the whole-population frequency distribution,
the uncertainty of this estimate.

We discuss both in a moment. First let’s compute them using the Pr() function. For the present question, this function requires three arguments:

Y: a data.frame listing the values of the variate we are interested in. In the present case the variate is species and the values are ‘Adelie’, ‘Chinstrap’, ‘Gentoo’.
learnt: the object that points to the computation made with the learn() function, discussed in the previous section. In the present case it’s learnt10.
Optionally, parallel specifies how many cores we should use for the computation.

Here is a way to call the function; the computation should take at most a couple of seconds:

## data frame with the variate and values we want to know the frequencies of
Y <- data.frame(species = c('Adelie', 'Chinstrap', 'Gentoo'))

Fspecies10 <- Pr(
    Y = Y,
    learnt = learnt10,
    parallel = 4 ## let's use 4 cores
)
# 
# Registered doParallelSNOW with 4 workers
# 
# Closing connections to cores.

The answer to our question is now contained in the Fspecies10 object (we chose this name for “Frequency distribution of species, estimated from 10 samples”). The estimate and its uncertainty can be immediately visualized by calling plot() with this object:

plot(Fspecies10)

Estimates and uncertainty of relative frequencies of penguin species

The x-axis of this plot shows the three possible values of the species variate. The y-axis reports fractions which may be read as frequencies or probabilities.

The estimated frequency distribution for the species is the central, solid red curve with small circles. (You may be used to frequency distributions as histograms, rather than as a broken line like in the plot above. The present visualization is more advantageous when we want to compare several frequency distributions, as we’ll do later.)

The three estimated frequencies are:

Adélie: 0.31
Chinstrap: 0.32
Gentoo: 0.37

and can be read from the values element of the Fspecies10 object:

Fspecies10$values
#            X
# Y               [,1]
#   Adelie    0.313805
#   Chinstrap 0.317970
#   Gentoo    0.368225

These frequency estimates have also another important meaning: they are the probabilities for the species of the next penguin we’ll observe. More generally, they are the probabilities for the next observation. In the present context they are maybe not so relevant – unless you’re placing bets on which data will arrive next with your colleagues – but in other inference contexts they may be very important. In a clinical setting, for example, where we try to infer some condition about the next patient, these probabilities are used for clinical decision-making; see the textbooks by Sox & al. and by Hunink & al., and the paper by Lindley & Novick in the references.

For the moment we focus on the “frequency estimate” meaning.

What about the uncertainty of these estimates?

Uncertainty of estimates: credibility intervals and probabilities

In Bayesian theory, a compact way of expressing the uncertainty in a quantity is by means of a credibility interval with a given probability. For instance, if we say that a particular quantity has a 70%-credibility interval equal to $(0.41, 0.69)$ , what we mean is that there’s an 70% probability that the true value of that quantity is between $0.41$ and $0.69$ – pretty straightforward! Please be careful not to confuse the Bayesian credibility interval with a “confidence interval”: the latter has a much more involved and less straightforward meaning.

The Pr() function by default calculates two credibility intervals for each frequency estimate: a 50% one, and an 89% one. In our present inference, the 50%-credibility intervals are shown in the plot above as the darker grey band, and the 89%-credibility intervals as the lighter grey band. Note that these intervals contain the 50% ones.

For instance, the plot indicates that there’s a 50% probability that the relative frequency of all Adelie penguins is roughly between 0.23 and 0.39; and an 89% probability that their relative frequency is roughly between 0.14 and 0.51.

For the Gentoo species, there’s a 50% probability that its relative frequency is roughly between 0.28 and 0.45; and an 89% probability that their relative frequency is roughly between 0.19 and 0.57.

We can Actually do more: we can plot the probabilities of all possible frequencies. To understand this idea, let’s ask: what is the relative frequency of Adélie penguins in the whole population? Possible values could be anything between 0 and 1. But some of these values may be more probable than others. If we look at our 10 samples, we see that 3 out of 10 are Adelie. So a relative frequency around 0.3 is a little more probable, although there’s still a lot of uncertainty because this is just a small sample.

The Pr() function has actually calculated the probabilities for all possible frequencies of each species. We can plot the probabilities of the frequencies of the Adelie species as follows:

## select only Adelie
onlyAdelie <- subset(Fspecies10, list(species = 'Adelie'))

hist(onlyAdelie, xlim = c(0, 1), legend = 'topright', col = 2)

Probability distribution for the frequency of Adelie penguins

With the subset() function we first extract from the Fspecies10 object only the information pertaining to the Adelie species, saving it into the onlyAdelie object. Then the hist() function plots the probability distribution for all the frequency values. We see that frequencies between around 0.2 and 0.4 have highest probability. But the probability distribution is quite wide; even a frequency of 0.6 has some probability. The vertical line indicates the mean of this probability distribution, which we take as our frequency estimate and as the probability that the next penguin we observe is of the Adélie species.

The width of this probability distribution reflects our large uncertainty, which in turn comes from the fact that we have only seen a small sample of penguins. We shall see that this uncertainty decreases and we gather more samples.

The credibility intervals are calculated from the probability distribution above. They can be quickly obtained from the quantiles element of the Fspecies10 object. For instance, we can read the 89%-credibility intervals as follows:

Fspecies10$quantiles[, , c('5.5%', '94.5%')]
#            
# Y               5.5%    94.5%
#   Adelie    0.142272 0.511279
#   Chinstrap 0.144655 0.521440
#   Gentoo    0.185321 0.572147

A preliminary report on question Q1

We can now give a preliminary answer to our question Q1, “what’s the overall statistical occurrence of the three species in the whole population?”.

A summary answer could be as follows:

From a sample of 10 penguins, the inference about the relative frequencies of the three species in the full population is as follows:

Adélie

rel. frequency between 0.14 and 0.51, with 89% probability

Chinstrap

rel. frequency between 0.14 and 0.52, with 89% probability

Gentoo

rel. frequency between 0.19 and 0.57, with 89% probability

But we can also give a fuller answer by displaying the probability distributions for all three frequencies:

hist(Fspecies10, legend = 'topright', col = 2:4)

Probability distribution for the rel. requencies of penguin species

It’s important to keep in mind that the three frequencies must add up to 1, so if our future estimates of some of them increase, then the estimate of some others must decrease.

What if I’m interested in more than one variate?

Our first example inference, just discussed, focused on the specific ‘species’ variate. It should be obvious how a similar analysis and code could be made for a another variate. We shall see more example later on.

But what if we’re interested in two or more variates at the same time? For example, we could be interested in species (three values) and sex (two values) jointly, and wonder what the relative frequencies of all six possibilities – Adelie and female, Adelie and male, Chinstrap and female, and so on – could be. This can also be done with inferno, with any number of variates. For the moment we only show the example code for such an analysis:

## data frame with all combination of values from 'species' and 'sex'
## use base-R function 'expand.grid()'
Y2 <- expand.grid(
    species = c('Adelie', 'Chinstrap', 'Gentoo'),
    sex = c('female', 'male'),
    stringsAsFactors = FALSE ## important! inferno doesn't use factors
)

Fspeciessex10 <- Pr(
    Y = Y2,
    learnt = learnt10,
    parallel = 4 ## let's use 4 cores
)
# 
# Registered doParallelSNOW with 4 workers
# 
# Closing connections to cores.

## Display the estimated frequencies of all six combinations,
## as well as their 89%-credibility intervals
cbind(
    Fspeciessex10$values,
    Fspeciessex10$quantiles[, , c('5.5%', '94.5%')]
)
#                                5.5%    94.5%
# Adelie,female    0.163338 0.0584870 0.303654
# Chinstrap,female 0.159690 0.0556444 0.296948
# Gentoo,female    0.218971 0.0897543 0.384241
# Adelie,male      0.150467 0.0520682 0.289968
# Chinstrap,male   0.158280 0.0562104 0.304420
# Gentoo,male      0.149254 0.0540717 0.282635

Now let’s continue with our simpler plan.

Analysis example: frequencies on different islands

Estimating frequencies of species, island-wise

Let’s now do a preliminary analysis related to research question Q2: do the three species differ, statistically, in some physical or geographical characteristic? This question is still somewhat vague, so let’s make it more specific: Is there any difference in species frequency on the different islands?

In other words, we want to know whether on some particular island, one or more species appear with relative frequencies different from the others’. It might be that all three species are equally present in each island; or the opposite, each species might be confined in a different island.

The way we proceed is analogous to the one in our first preliminary analysis: we shall calculate estimates of frequencies, their uncertainties, and even their probability distributions. But there’s one important difference in the present question: the frequencies we want to infer are about penguins who live on specific islands – say, those who live on Biscoe. An exact statistical answer to this question would be obtained through a complete census of the subpopulation or subgroup of penguins who live on Biscoe. We are therefore speaking about a conditional frequencies and conditional probabilities.

Bayesian nonparametrics and inferno can also draw this kind of inferences. We use again the Pr() function, but this time we supply an additional X argument, which tells which subpopulations we want to focus on. For simplicity, let’s say that we want to focus on penguins living on Biscoe or Dream, that is, those whose island variate has the values 'Biscoe or 'Dream'. The code is as follows:

## data frame with the variate and values of the subpopulations of interest
X <- data.frame(island = c('Biscoe', 'Dream'))

Fspecies10I <- Pr(
    Y = Y,
    X = X, ## argument for conditional inferences
    learnt = learnt10,
    parallel = 4 ## let's use 4 cores
)
# 
# Registered doParallelSNOW with 4 workers
# 
# Closing connections to cores.

The answer to our question is now contained in the Fspecies10I object (we add I for “island” to the previous name). The estimates of the frequencies and their uncertainties can again be visualized by calling plot():

plot(Fspecies10I, col = 5:6)

Estimates and uncertainty of conditional frequencies

The estimated frequencies for the Biscoe subpopulation are shown by the solid yellow curve with small circles; those for the Dream subpopulation by the dashed purple curve with small squares. More precise values are contained in the values element of the Fspecies10I object:

Fspecies10I$values
#            X
# Y             Biscoe   Dream
#   Adelie    0.237242 0.30507
#   Chinstrap 0.242497 0.42591
#   Gentoo    0.520262 0.26902

According to these estimates, on Biscoe there should be a predominance of Gentoo penguins, with lower, roughly equal numbers of Adélie and Chinstrap. On Dream, on the other hand, Gentoo should be the minority, and Chinstrap should be the majority. But how sure are we about these estimates? We see that the 89%-credibility intervals of each frequency are quite wide. Also in this case we can get a better picture by displaying the probability distribution of each frequency, by means of the hist() function, and see how much they overlap.

For Biscoe island we find

## select only Biscoe
onlyBiscoe <- subset(Fspecies10I, list(island = 'Biscoe'))

hist(onlyBiscoe, xlim = c(0, 1), legend = 'topright', col = 2:4)

Probability distribution for species frequencies on Biscoe

Note how, according to these preliminary estimates, the frequencies of Adélie and Chinstrap are very close, around 0.2, and quite different from the frequency of Gentoo, around 0.52. Yet, the probability distributions are wide; each distribution gives a non-zero probability to all three estimates.

For later, keep in mind the following question: On Biscoe, are the frequencies of Adélie and Chinstrap different? The present estimates show almost no difference, but we are warned about a large uncertainty. Will more sampling data confirm “no difference”?

For Dream island we find

## select only Dream
onlyDream <- subset(Fspecies10I, list(island = 'Dream'))

hist(onlyDream, xlim = c(0, 1), legend = 'topright', col = 2:4)

Probability distribution for species frequencies on Biscoe

Among other things we see here a larger difference in the estimated frequencies of Adélie, around 0.31, and Chinstrap, around 0.43. Still, the probability distributions are wide.

For later, keep in mind the following question: On Dream, are the frequencies of Adélie and Chinstrap different? The present estimates show a difference, but with large uncertainty. Will more sampling data confirm “difference”?

A preliminary report on question Q2

The last two plots are a visual answer to our research question: “is there any difference in species frequency on the different islands?”, restricted to Biscoe and Dream islands. This answer does not only give estimates, but full probability distributions showing their uncertainties.

A more compact summary can again be given with credibility intervals. We can produce it as follows:

aperm(
    Fspecies10I$quantiles[, , c('5.5%', '94.5%')],
    c(1, 3, 2)) ## change order for better display
# , , X = Biscoe
# 
#            
# Y                5.5%    94.5%
#   Adelie    0.0583302 0.492409
#   Chinstrap 0.0603621 0.499097
#   Gentoo    0.2481256 0.792270
# 
# , , X = Dream
# 
#            
# Y                5.5%    94.5%
#   Adelie    0.0893090 0.573754
#   Chinstrap 0.1732206 0.717375
#   Gentoo    0.0739769 0.528283

Differences from “null-hypothesis testing” and p-value methods

The reason I asked you to keep in mind the two “frequencies different?” questions is that they will demonstrate important differences between Bayesian nonparametrics and methods based on “null-hypothesis testing” and on p-values.

Null-hypothesis testing focuses on trying to answer whether a hypothesis of “equality” is false. An important problem of this approach is that “equality” or “difference” are fuzzy notions. Are the two frequencies 0.35 and 0.40 equal or different? What about 0.39 and 0.40? And what about 0.3999 and 0.4000? Whether two numbers can be considered equal or different depends on a choice of tolerance level, which in turn depends on the context and application. In some cases, frequencies of 0.3 and 0.4 might be considered practically equal; in others, frequencies of 0.39 and 0.40 might be considered very different. The ambiguity about the intended tolerance in null-hypothesis testing is one of the aspects that make “p-hacking” possible: even frequencies as close as 0.3999 and 0.4000 will lead to some difference in enough large samples.

The Bayesian approach resists this context-dependent and even subjective simplification. Instead it focuses on giving numerical values and their uncertainties. A frequency can be said to be between 0.38 and 0.39 with 90% probability; another to be between 0.40 and 0.43 with 90% probability. You can then decide whether this separation and its uncertainty are enough for you, or whether you want to get more stringent bounds by collecting more samples.

One problem with p-values is that if you re-calculate them anew, as new samples arrive, sooner or later you can reach as low a p-value as desired. This procedure is called “optional stopping” and is a form of “p-hacking”. This is why in using methods based on p-values you must beforehand declare your sample size or at least a precise stopping rule.

Bayesian estimates don’t suffer from this problem. You can update the estimates and their uncertainties as new samples arrive. What happens is that the uncertainties decrease, and the estimates converge to their true values. This feature keeps you safe and gives you greater flexibility in designing your experiments and in changing strategies along the way. We demonstrate this in the next section.

What if I’m interested in combinations of subpopulations?

We may be interested in the frequencies of the three species in more complex subpopulations, for example the subpopulation of female penguins living on Biscoe island; in other words, penguins with island variate equal to 'Biscoe', and sex variate equal to 'female'. These cases are also easily handled by inferno, for any combination of subpopulations. The procedure is analogous to the one we previously discussed very briefly.

Also in this case we only show the example code for the moment:

## data frame with all combination of values from 'island' and 'sex'
## use base-R function 'expand.grid()'
X2 <- expand.grid(
    island = c('Biscoe', 'Dream', 'Torgersen'),
    sex = c('female', 'male'),
    stringsAsFactors = FALSE ## important! inferno doesn't use factors
)

Fspecies10IS <- Pr(
    Y = Y,
    X = X2,
    learnt = learnt10,
    parallel = 4 ## let's use 4 cores
)
# 
# Registered doParallelSNOW with 4 workers
# 
# Closing connections to cores.

## Display the estimated frequencies of species
## within all six combinations of subpopulations
Fspecies10IS$values
#            X
# Y           Biscoe,female Dream,female Torgersen,female Biscoe,male Dream,male
#   Adelie         0.228338     0.314738         0.413602    0.255356   0.296034
#   Chinstrap      0.228334     0.395861         0.267919    0.268323   0.453861
#   Gentoo         0.543328     0.289401         0.318479    0.476321   0.250105
#            X
# Y           Torgersen,male
#   Adelie          0.452683
#   Chinstrap       0.280456
#   Gentoo          0.266861

More samples

Updating what we’ve learnt

The preliminary analysis based on only 10 samples of penguins revealed possible interesting hypotheses, for instance that the relative frequencies of Adélie and Chinstrap penguins are both around 0.2 on Biscoe island, and differ by 10% or more apart on Dream island. But the analysis and hypotheses had very large uncertainties.

Now imagine that our sampling colleagues send us 50 more datapoints, which we add to the 10 we already have. Let’s store the 60 datapoints in the file 'penguin_data60.csv':

datafile <- 'penguin_data60.csv'
write.csvi(penguin[1:60, ], datafile) ## write the first 60 samples

Feel free to take a look at your extended sample data. There may be new datapoints with missing values, but as already discussed this isn’t a problem for Bayesian theory and inferno.

Let’s now update our inferences with the new sampled data. This is done again with the learn() function. Please wait before running this code, it might take longer time on your computer:

learnt60 <- learn(
    data = datafile,
    metadata = metadatafile,
    outputdir = 'penguin_inference',
    seed = 16,
    parallel = 4 ## how many cores to use for the computation
)
# Registered doParallelSNOW with 4 workers
# Calculating auxiliary metadata
# 
# Learning:  60 datapoints,  8 variates
# 
#  *************************************************** 
#  Saving output in directory
#  penguin_inference-261031T122341-vrt8_dat60_smp3600 
#  *************************************************** 
# Starting Monte Carlo sampling of 3600 samples by 60 chains
# in a space of 1027 (effectively 16651) dimensions.
# Using 4 cores: 60 samples per chain, max 15 chains per core.
# Core logs are being saved in individual files.
# 
# C-compiling samplers appropriate to the variates (package Nimble)
# this can take tens of minutes. Please wait...
# Compiled core 1. Number of samplers: 1328.       
# Estimating remaining time, please be patient...
# Sampling. Core 1 estimated end time: 2026-10-31 12:39
# Finished Monte Carlo sampling.                                 
# Highest number of Monte Carlo iterations across chains: 14235 
# Highest number of used mixture components: 19 
# 
# Checking test data
# ( #8 #15 #20 #27 #30 #33 #43 #46 #59 )
# 
# rel. MC standard error: min: 0.03  max: 0.064  mean: 0.045 
# eff. sample size: min: 250  max: 1100  mean: 580 
# needed thinning: min: 5  max: 22  mean: 12 
# average: min: 4.9e-09  max: 3.8e-08  mean: 1.6e-08 
# 
# Plotting final Monte Carlo traces and marginal samples...
# 
# Total computation time: 12 mins 
# Average preparation & finalization time: 1.2 mins 
# Average Monte Carlo time per chain: 40 secs 
# Max total memory used: approx 3600 MB
# Max memory used per core: approx 950 MB
# 
# Removing temporary output files.
# Finished.
# 
# Closing connections to cores.

The calculation with 60 sample data took around 4 GB and 12 minutes on 4 cores.

The results of this updated inference are now stored in the compressed file 'learnt.rds' within the new output directory. For your convenience the object produced by the computation above can be downloaded as the file 'learnt60.rds'. Once you have downloaded it in your working directory, invoke

learnt60 <- 'learnt60.rds'

which we now use to update our analysis.

Updates in analysis and hypotheses

In our preliminary analysis we focused on three questions:

What’s the overall statistical occurrence of the three species in the whole population?
What’s the difference between Adélies and Chinstrap frequencies on Biscoe island?
What’s the difference between Adélies and Chinstrap frequencies on Dream island?

We can update our answers – frequency estimates, their credible intervals, and their probability distributions – from the increased data sample, using the Pr() function as before. Note that in the learnt = argument we must now use the new learnt60 object, which points to the updated inference. Here is the calculation for all three questions:

## 'Y' and 'X' were previously defined with:
## Y <- data.frame(species = c('Adelie', 'Chinstrap', 'Gentoo'))
## X <- data.frame(island = c('Biscoe', 'Dream'))

Fspecies60 <- Pr(
    Y = Y,
    learnt = learnt60, ## updated inference
    parallel = 4 ## let's use 4 cores
)
# 
# Registered doParallelSNOW with 4 workers
# 
# Closing connections to cores.

Fspecies60I <- Pr(
    Y = Y,
    X = X, ## argument for conditional inferences
    learnt = learnt60, ## updated inference
    parallel = 4 ## let's use 4 cores
)
# 
# Registered doParallelSNOW with 4 workers
# 
# Closing connections to cores.

Just like in the preliminary analysis we can use the plot() and hist() functions to visualize estimates, credibility intervals, and probability distributions.

Consider the first question: overall statistical occurrence of the three species. Let’s plot the new estimates and their credibility intervals:

plot(Fspecies60)

Updated frequency estimates of penguin species

You may notice that the credibility intervals are now narrower, compared to those of the previous estimates. Let’s actually overlap the plots of the initial and updated inferences, to better see how they got updated:

## find common y-maximum for correct visual comparison
ymax <- max(Fspecies10$quantiles, Fspecies60$quantiles)

plot(Fspecies10, ylim = c(0, ymax),
    col = 2, lty = 2, lwd = 3, pch = 2) ## distinguish the two plots

plot(Fspecies60, ylim = c(0, ymax), add = TRUE,
    col = 1, lty = 1, lwd = 2, pch = 1) ## distinguish the two plots

legend('top', c('10 samples', '60 samples'),
    col = 2:1, lty = 2:1, pch = 2:1, bty = 'n')

We notice the following differences, among others:

The new frequency estimates (circles) for Adelie and Chinstrap differ by almost 10% from the previous ones (triangles). The estimate for Gentoo is almost the same.
The new credibility intervals (grey bands) are narrower than the previous ones (red bands).
All new estimates (circles) are almost or fully within the 50%-credibility intervals of the previous estimates (darker-red bands). All new estimates are fully within the previous 89%-credibility intervals (lighter-red bands).

These changes are consistent with the meaning of the credibility intervals: one every two estimates can end outside the 50%-credibility interval, and 1 out of 10 can end outside the 89%-credibility interval.

We can also plot the updated probability distributions for the relative frequencies of the three species. Let’s plot them together with the previous ones to highlight the changes:

hist(Fspecies60, legend = 'topright', xlim = c(0, 1),
    col = 2:4, main = '60 samples')


hist(Fspecies10, legend = 'topright', xlim = c(0, 1),
    ylim = c(0, par('usr')[4]), ## y-range from previous plot
    col = 2:4, main = '10 samples')

We see that in our initial inference (bottom plot) all three probability distributions largely overlapped, indicating our uncertainty on whether any of these frequencies might be very different from the others.

In our updated inference (top plot) there is still a large overlap for the probabilities of Adelie (solid red curve) and Gentoo (dot-dashed green curve) frequencies, indicating that we’re still very uncertain on whether these frequencies might be very different or not – we need more sample to resolve this. But we can already conclude, with high probability, that their difference won’t be larger than around 30% (the width of their distributions).

But the probability distribution for the Chinstrap frequency (dashed blue curve) has now a smaller overlap with the other two: there’s an increased probability that this frequency is around 20% different from at least one of the other two. Later on we shall see how to calculate these probabilities exactly.

Our updated quantitative answer to the question “What’s the overall statistical occurrence of the three species in the whole population?” is as follows:

Fspecies60$quantiles[, , c('5.5%', '94.5%')]
#            
# Y               5.5%    94.5%
#   Adelie    0.296141 0.481542
#   Chinstrap 0.161755 0.318017
#   Gentoo    0.285550 0.470229

From a sample of 10 penguins, the inference about the relative frequencies of the three species in the full population is as follows:

Adélie

rel. frequency between 0.29 and 0.49, with 89% probability

Chinstrap

rel. frequency between 0.14 and 0.30, with 89% probability

Gentoo

rel. frequency between 0.30 and 0.50, with 89% probability

Updates in island-wise conditional frequencies

We can quickly repeat the analysis above for the conditional frequencies on the Biscoe and Dream islands, that is, the frequencies for the two subpopulations of penguins living on those two islands. Let’s directly plot the probability distributions for the two subpopulation frequencies, together with those from the previous inference.

For `Dream` island

## select only Dream
onlyDream10 <- subset(Fspecies10I, list(island = 'Dream'))
onlyDream60 <- subset(Fspecies60I, list(island = 'Dream'))

hist(onlyDream60, legend = 'topright', xlim = c(0, 1),
    col = 2:4, main = '60 samples, Dream island')


hist(onlyDream10, legend = 'topright', xlim = c(0, 1),
    ylim = c(0, par('usr')[4]), ## y-range from previous plot
    col = 2:4, main = '10 samples, Dream island')

The new frequency estimates for Adelies (solid red line) and Chinstrap (dashed blue line) are now less than 10% apart, whereas the previous estimates had them 20% apart. But this change is not unexpected: these new estimates are well within the previous credibility intervals; we were correctly warned about their possible change.

For `Biscoe` island: a surprising result

## select only Biscoe
onlyBiscoe10 <- subset(Fspecies10I, list(island = 'Biscoe'))
onlyBiscoe60 <- subset(Fspecies60I, list(island = 'Biscoe'))

hist(onlyBiscoe60, legend = 'topright', xlim = c(0, 1),
    col = 2:4, main = '60 samples, Biscoe island')


hist(onlyBiscoe10, legend = 'topright', xlim = c(0, 1),
    ylim = c(0, par('usr')[4]), ## y-range from previous plot
    col = 2:4, main = '10 samples, Biscoe island')

The new frequency estimates for Adelies (solid red line) and Chinstrap (dashed blue line) are now 10% apart, whereas the previous estimates were almost equal. Again this is not unexpected, and these changes are well within the previous credibility intervals.

Notably, we see now a clear separation between the probability distribution for the frequency of Gentoo (dot-dashed green), and that for Chinstrap (dashed blue). This means that these two frequencies must be clearly different. Can we quantify how different, and with which uncertainty?

Yes, this can be calculated and visualized as follows:

freqdiff <- Fspecies60I$samples['Gentoo', 'Biscoe',] -
    Fspecies60I$samples['Chinstrap', 'Biscoe',]

hist(freqdiff, plot = TRUE, xlim = c(-0.5, 1),
    xlab = 'frequency difference', ylab = 'probability density',
    main = NULL)

probability of frequency difference between Gentoo and Chinstrap

Clearly there’s a high probability that Gentoo frequency is larger than Chinstrap frequency, on Biscoe island. We can report an estimate and uncertainty about this difference:

median(freqdiff)
# [1] 0.455307

quantile(freqdiff, c(0.05, 0.95))
#       5%      95% 
# 0.250119 0.638229

From a sample of 60 penguins, the difference between the frequencies of Gentoo species and Chinstrap species, on Biscoe island, is estimated with a median of 0.46, and it is between 0.25 and 0.64 with 90% probability.

Maybe you prefer a ratio between the two frequencies:

freqratio <- Fspecies60I$samples['Gentoo', 'Biscoe',] /
    Fspecies60I$samples['Chinstrap', 'Biscoe',]

median(freqratio)
# [1] 4.27492

quantile(freqratio, c(0.05, 0.95))
#      5%     95% 
# 2.09686 9.64345

From a sample of 60 penguins, the ratio between the frequencies of Gentoo species on Chinstrap species, on Biscoe island, is estimated with a median of 4.3, and it is between 2.10 and 9.64 with 90% probability.

It is remarkable that with only 60 penguins (and not all of them from Biscoe island) we can conclude with a high probability (95%) that there are at least 2 times more Gentoo than Chinstrap penguins on Biscoe island!

If your only research question had been to check whether the Gentoo population is at least twice as large as Chinstrap’s on Biscoe island, you could have stopped sampling now and report your results.

By contrast, with a null-hypothesis test based on p-values, if you had planned beforehand to examine 300 penguins, you could not state such results before all 300 penguins were collected. And your results would be less clearly interpretable than the ones above.

Final inferences

When the sampling is finished

Let’s emphasize again an important feature of Bayesian inference: you can monitor your estimates and their uncertainty while the data samples arrive. And if you reach uncertainties about your hypotheses that you deem low enough, you can stop sampling and report your findings and their probabilities.

With 60 data samples, we consider our uncertainties about our research questions Q1 and Q2 still too large – except for an important result about Gentoo and Chinstrap species on Biscoe island, which we can already announce. Let’s suppose that we continued sampling; our colleagues sent us 284 more data samples, for a total of 344 with the ones previously sent. The sampling then stopped, so this is all the data we have to report our final findings and their uncertainty.

Let’s store all datapoints in the file 'penguin_data.csv':

datafile <- 'penguin_data.csv'
write.csvi(penguin, datafile) ## write the first 60 samples

As usual we perform the updated inference with the learn() function (and as usual please wait before running the code below):

learntall <- learn(
    data = datafile,
    metadata = metadatafile,
    outputdir = 'penguin_inference',
    seed = 16,
    parallel = 4 ## how many cores to use for the computation
)
# Registered doParallelSNOW with 4 workers
# Calculating auxiliary metadata
# 
# Learning:  344 datapoints,  8 variates
# 
#  ****************************************************** 
#  Saving output in directory
#  penguin_inference-261031T122345-vrt8_dat344_smp3600 
#  ****************************************************** 
# Starting Monte Carlo sampling of 3600 samples by 60 chains
# in a space of 1027 (effectively 89368) dimensions.
# Using 4 cores: 60 samples per chain, max 15 chains per core.
# Core logs are being saved in individual files.
# 
# C-compiling samplers appropriate to the variates (package Nimble)
# this can take tens of minutes. Please wait...
# Compiled core 1. Number of samplers: 2757.       
# Estimating remaining time, please be patient...
# Sampling. Core 2 estimated end time: 2026-10-31 12:14
# Finished Monte Carlo sampling.                                 
# Highest number of Monte Carlo iterations across chains: 22364 
# Highest number of used mixture components: 33 
# 
# Checking test data
# ( #64 #125 #127 #189 #225 #264 #271 #276 #315 )
# 
# rel. MC standard error: min: 0.065  max: 0.11  mean: 0.089 
# eff. sample size: min: 88  max: 240  mean: 130 
# needed thinning: min: 23  max: 62  mean: 44 
# average: min: 3.8e-09  max: 1.2e-07  mean: 3.1e-08 
# 
# Plotting final Monte Carlo traces and marginal samples...
# 
# Total computation time: 46 mins 
# Average preparation & finalization time: 3.2 mins 
# Average Monte Carlo time per chain: 2.7 mins 
# Max total memory used: approx 3800 MB
# Max memory used per core: approx 990 MB
# 
# Removing temporary output files.
# Finished.
# 
# Closing connections to cores.

The calculation with 344 sample data took around 4 GB and 46 minutes on 4 cores.

The results of this final inference are stored in the compressed file 'learnt.rds' within the new output directory. The object produced by the computation above can be downloaded as the file 'learntall.rds'. Once you have downloaded it in your working directory, invoke

learntall <- 'learntall.rds'

Final results on overall species frequencies

Our final results about the overall relative frequencies of the three species are computed in the usual way:

## 'Y' and 'X' were previously defined with:
## Y <- data.frame(species = c('Adelie', 'Chinstrap', 'Gentoo'))

Fspeciesall <- Pr(
    Y = Y,
    learnt = learntall, ## updated inference
    parallel = 4 ## let's use 4 cores
)
# 
# Registered doParallelSNOW with 4 workers
# 
# Closing connections to cores.

Let’s plot the estimated frequencies with their credibility intervals, and also their probability distributions:

plot(Fspeciesall, ylim = c(0, 1))


hist(Fspeciesall, xlim = c(0, 1), legend = 'topright')

The last plot is visually the most complete answer we can give to our research question Q1: “What’s the overall statistical occurrence of the three species in the whole population?”. A quantitative summary can be extracted from the Fspeciesall in the usual way:

Fspeciesall$values
#            X
# Y               [,1]
#   Adelie    0.437669
#   Chinstrap 0.210793
#   Gentoo    0.351538

Fspeciesall$quantiles[, , c('5.5%', '94.5%')]
#            
# Y               5.5%    94.5%
#   Adelie    0.395676 0.479860
#   Chinstrap 0.176545 0.245848
#   Gentoo    0.311122 0.392778

From a sample of 344 penguins [add a more thorough specification of population and sampling procedure here], the relative frequencies of the three species in the full population are estimated as follows (obviously the three estimates and uncertainties are not independent, because the frequencies must add up to 1):

Adélie

estimate 0.44
true rel. frequency between 0.40 and 0.48 with 89% probability

Chinstrap

estimate 0.21
true rel. frequency between 0.18 and 0.25 with 89% probability

Gentoo

estimate 0.35
true rel. frequency between 0.31 and 0.39 with 89% probability

Statistical differences in subpopulations

Our research question Q2, “Do the species differ, statistically, in some physical or geographical characteristic?”, can lead to many diverse analyses. We are essentially asking about frequency estimates of some variates in particular subpopulations; for instance frequencies of the three species among penguins living in one or another island. These kinds of inference are straightforward with Bayesian theory and inferno. As examples partly different from the previous ones, let’s focus on these three:

Q2a What are the relative frequencies of the three species, on Biscoe island? We can therefore check whether our strong results from 60 samples are confirmed by the new samples.
Q2b What’s the distribution of Adélie penguins among the three islands? Note that the subpopulation in this question is a particular species, rather than a particular island.
Q2c What’s the frequency distribution of body mass in the three species?

Each question can be answered by means of the Pr() function, and visualized with the plot() or hist() functions. Let’s see them one by one. We shall write our code in a way that can be easily adapted from one analysis to the other.

Q2a: species on Biscoe

We define an object Y for the variate we want to know the frequency about, and an object X for the subpopulation we’re restricting our analysis to:

Yvrt <- 'species' ## variate of interest
Yvls <- sort(unique(penguin[, Yvrt])) ## values from dataset
## build Y object
Y <- data.frame(Yvls)
colnames(Y) <- Yvrt

Xvrt <- 'island' ## subpopulation variate
Xvls <- 'Biscoe' ## subpopulation value or values
## build X object
X <- data.frame(Xvls)
colnames(X) <- Xvrt

Fanalysis <- Pr(Y = Y, X = X, learnt = learntall, parallel = 4)
# 
# Registered doParallelSNOW with 4 workers
# 
# Closing connections to cores.

Here are the probability distributions and the credibility intervals for the three frequencies:

hist(Fanalysis, xlim = c(0, 1), col = 2:4, ## same colours as before!
    legend = 'topright')


Fanalysis$values
#            X
# Y              Biscoe
#   Adelie    0.2643710
#   Chinstrap 0.0781806
#   Gentoo    0.6574484

Fanalysis$quantiles[, , c('5.5%', '94.5%')]
#            
# Y                5.5%    94.5%
#   Adelie    0.2120122 0.317935
#   Chinstrap 0.0499459 0.110916
#   Gentoo    0.5995547 0.713646

Conclusion:

From a sample of 344 penguins, the relative frequencies of the three species on Biscoe island are estimated as follows:

Adélie

estimate 0.26
true rel. frequency between 0.21 and 0.32 with 89% probability

Chinstrap

estimate 0.08
true rel. frequency between 0.05 and 0.11 with 89% probability

Gentoo

estimate 0.66
true rel. frequency between 0.60 and 0.71 with 89% probability

Note how our previous estimates from 60 samples were already quite on the spot.

Q2b: Adélie on three islands

In this case, Adelie penguins are our subpopulation:

Yvrt <- 'island' ## variate of interest
Yvls <- c('Biscoe', 'Dream', 'Torgersen') ## values of interest
## build Y object
Y <- data.frame(Yvls)
colnames(Y) <- Yvrt

Xvrt <- 'species' ## subpopulation variate
Xvls <- 'Adelie' ## subpopulation value or values
## build X object
X <- data.frame(Xvls)
colnames(X) <- Xvrt

## NB: rewriting the previous 'Fanalysis' object
Fanalysis <- Pr(Y = Y, X = X, learnt = learntall, parallel = 4)
# 
# Registered doParallelSNOW with 4 workers
# 
# Closing connections to cores.

Here are the probability distributions and confidence intervals for the three frequencies:

hist(Fanalysis, xlim = c(0, 1), col = 5:7,
    legend = 'topright')


Fanalysis$values
#            X
# Y             Adelie
#   Biscoe    0.282757
#   Dream     0.425517
#   Torgersen 0.291726

Fanalysis$quantiles[, , c('5.5%', '94.5%')]
#            
# Y               5.5%    94.5%
#   Biscoe    0.227718 0.337391
#   Dream     0.360946 0.492150
#   Torgersen 0.236469 0.348194

Conclusions:

From a sample of 344 penguins, the distribution of the Adélies species on the three islands is estimated as follows:

Biscoe

estimate 0.28
true rel. frequency between 0.23 and 0.34 with 89% probability

Dream

estimate 0.43
true rel. frequency between 0.36 and 0.49 with 89% probability

Torgersen

estimate 0.29
true rel. frequency between 0.24 and 0.35 with 89% probability

Note that in this case our uncertainties do not allow us to exclude the possibility that Adélies penguins are roughly equally distributed on the three islands.

Q2c: Body mass across the three species

In this case we are interested in the (continuous) distribution of body mass in three separate subpopulations: Adelie, Chinstrap, and Gentoo penguins:

Yvrt <- 'body_mass' ## variate of interest
Yrange <- c('3000', '5000') ## range of interest
Yvls <- seq(Yrange[1], Yrange[2], by = 25)
## build Y object
Y <- data.frame(Yvls)
colnames(Y) <- Yvrt

Xvrt <- 'species' ## subpopulation variate
Xvls <- c('Adelie', 'Chinstrap', 'Gentoo') ## subpopulation values
## build X object
X <- data.frame(Xvls)
colnames(X) <- Xvrt

## NB: rewriting the previous 'Fanalysis' object
Fanalysis <- Pr(Y = Y, X = X, learnt = learntall, parallel = 4)
# 
# Registered doParallelSNOW with 4 workers
# 
# Closing connections to cores.

Here is the estimated frequency distribution of body mass within each species

plot(Fanalysis, col = 2:4, legend = 'topright')

Note how the plots above give us much more information than just a set of estimates about medians and quantiles, or means and standard deviations. Note also how the distributions are not Gaussian. We can definitely say that Gentoo penguins (dot-dashed green curve) are statistically heavier than Adélie or Chinstrap ones.

Consider also this question: “Do Adélie and Chinstrap penguins have identical body-mass distributions?” The plots show that this question is too generic and ambiguous. In the body-mass range between 4200 g and 5000 g, the two distributions (solid red, dashed blue) could maybe have very similar values – there’s still some uncertainty there. But in the body-mass range around 3750 g there’s a high probability that the two distributions clearly differ; we see that their mean estimates are outside each other’s 89%-credibility interval.

(TO BE CONTINUED)

References

On exchangeability:

Bernardo, Smith: Bayesian Theory (repr. 2000). See especially §§ 4.2–4.3, 4.6.
Dawid: Exchangeability and its ramifications (2013).
de Finetti: La prévision: ses lois logiques, ses sources subjectives (1937).
Heath, Sudderth: De Finetti’s theorem on exchangeable variables (1976).
Hewitt, Savage: Symmetric measures on Cartesian products (1955).
Lindley, Novick: The role of exchangeability in inference (1981).
inferno accompanying manual: Foundations of inference under symmetry (draft).

On Bayesian theory in general:

Jaynes: Probability Theory (2003).
ADA 511: Foundations of data science.

On medical decision-making:

Sox, Higgins, Owens, Sanders Schmidler: Medical Decision Making (3rd ed. 2024).
Hunink, Weinstein, Wittenberg, Drummond, Pliskin, Wong, Glasziou: Decision Making in Health and Medicine: Integrating Evidence and Values (2nd ed. 2014).

Format for data and metadata files and their contents

The functions of the inferno package accept CSV files formatted as follows:

Decimal values should be separated by a dot; no comma should be used to separate thousands etc. Example: 86342.75 .
Character and names should be quoted in single or double quotes. Example: "female".
Values should be separated by commas, not by tabs or semicolons.
Missing values should be simply empty, not denoted by “NA”, “missing”, “-”, or similar.

Names of variates and character variate values should be strings conforming to R’s rules.