Summarize an imaginary census — summary.imaginary

Aggregates the per-perceiver motif counts returned by count_imaginary_census() into totals per motif type.

Usage

# S3 method for class 'imaginary_census'
summary(object, ...)

Arguments

object: A data frame returned by count_imaginary_census().
...: Currently ignored.

Value

A named numeric vector with total counts per motif type (sorted in decreasing order).

Examples

data(krackhardt_advice)
data(krackhardt_advice_perceptions)

n_people <- 21
advice_matrix <- matrix(0L, nrow = n_people, ncol = n_people)
advice_matrix[cbind(krackhardt_advice$from, krackhardt_advice$to)] <-
  krackhardt_advice$value

krack_graph <- new_barry_graph(
  c(list(advice_matrix), krackhardt_advice_perceptions)
)
census <- count_imaginary_census(krack_graph)
summary(census)
#>                 Accurate assym                   Accurate null  
#>                            1052                             992 
#>                  Accurate full  Partial false negative (assym)  
#>                             469                             463 
#> Partial false positive (assym)   Partial false negative (full)  
#>                             412                             395 
#>  Partial false positive (null)                     Mixed assym  
#>                             343                             173 
#> Complete false negative (full)  Complete false positive (null)  
#>                              81                              30