R code used to analyze the synaptic ultrastructure of the brain