R/select_egoalter.R
select_egoalter.RdThis function calculates the 16 possible configurations between ego and alter
over two time points in terms of their behavior and tie changes. From time
one to time two, given a binary state of behavior, ego and alter can be
related in 16 different ways. The function adopt_changes is just an
alias for select_egoalter.
select_egoalter(graph, adopt, period = NULL) adopt_changes(graph, adopt, period = NULL) # S3 method for diffnet_adoptChanges summary(object, ...)
| graph | A dynamic graph (see |
|---|---|
| adopt | \(n\times T\) matrix. Cumulative adoption matrix obtained from |
| period | Integer scalar. Optional to make the count for a particular period of time. |
| object | An object of class |
| ... | Ignored. |
An object of class diffnet_adoptChanges and data.frame
with \(n\times (T-1)\) rows and \(2 + 16\times 3\)
columns. The column names are:
timeInteger represting the time period
idNode id
select_a_01, ..., select_a_16Number of new links classified between categories 1 to 16.
select_d_01, ..., select_d_16Number of remove links classified between categories 1 to 16.
select_s_01, ..., select_s_16Number of unchanged links classified between categories 1 to 16.
The 16 possibilities are summarized in this matrix:
| Alter | ||||||
| \(t-1\) | No | Yes | ||||
| \(t-1\) | \(t\) | No | Yes | No | Yes | |
| Ego | No | No | 1 | 2 | 9 | 10 |
| Yes | 3 | 4 | 11 | 12 | ||
| Yes | No | 5 | 6 | 13 | 14 | |
| Yes | 7 | 8 | 15 | 16 |
The first two Yes/No columns represent Ego's adoption of the innovation in \(t-1\) and \(t\); while the first two Yes/No rows represent Alter's adoption of the innovation in \(t-1\) and t respectively. So for example, number 4 means that while neither of the two had addopted the innovation in \(t-1\), both have in \(t\). At the same time, number 12 means that ego adopted the innovation in \(t\), but alter had already adopted in \(t-1\) (so it has it in both, \(t\) and \(t-1\)).
Thomas W. Valente, Stephanie R. Dyal, Kar-Hai Chu, Heather Wipfli, Kayo Fujimoto, Diffusion of innovations theory applied to global tobacco control treaty ratification, Social Science & Medicine, Volume 145, November 2015, Pages 89-97, ISSN 0277-9536 (http://dx.doi.org/10.1016/j.socscimed.2015.10.001)
# Simple example ------------------------------------------------------------ set.seed(1312) dn <- rdiffnet(20, 5, seed.graph="small-world") ans <- adopt_changes(dn) str(ans)#> Classes ‘diffnet_adoptChanges’ and 'data.frame': 80 obs. of 50 variables: #> $ time : Factor w/ 4 levels "2","3","4","5": 1 1 1 1 1 1 1 1 1 1 ... #> $ id : int 1 2 3 4 5 6 7 8 9 10 ... #> $ select_a_01: int 0 0 0 0 0 0 0 0 0 1 ... #> $ select_a_02: int 0 0 0 0 0 1 0 0 0 0 ... #> $ select_a_03: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_a_04: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_a_05: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_a_06: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_a_07: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_a_08: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_a_09: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_a_10: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_a_11: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_a_12: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_a_13: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_a_14: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_a_15: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_a_16: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_d_01: int 0 0 0 0 0 1 0 0 0 1 ... #> $ select_d_02: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_d_03: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_d_04: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_d_05: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_d_06: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_d_07: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_d_08: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_d_09: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_d_10: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_d_11: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_d_12: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_d_13: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_d_14: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_d_15: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_d_16: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_s_01: int 2 2 2 2 2 1 2 2 2 0 ... #> $ select_s_02: int 0 0 0 0 0 0 0 0 0 1 ... #> $ select_s_03: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_s_04: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_s_05: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_s_06: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_s_07: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_s_08: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_s_09: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_s_10: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_s_11: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_s_12: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_s_13: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_s_14: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_s_15: int 0 0 0 0 0 0 0 0 0 0 ... #> $ select_s_16: int 0 0 0 0 0 0 0 0 0 0 ...summary(ans)#> $`added (a)` #> $`added (a)`$`period 2` #> Alter|No (t-1)|No (t) Alter|No (t-1)|Yes (t) #> Ego|No (t-1)|No (t) 1 1 #> Ego|No (t-1)|Yes (t) 0 0 #> Ego|Yes (t-1)|No (t) 0 0 #> Ego|Yes (t-1)|Yes (t) 0 0 #> Alter|Yes (t-1)|No (t) Alter|Yes (t-1)|Yes (t) #> Ego|No (t-1)|No (t) 0 0 #> Ego|No (t-1)|Yes (t) 0 0 #> Ego|Yes (t-1)|No (t) 0 0 #> Ego|Yes (t-1)|Yes (t) 0 0 #> #> $`added (a)`$`period 3` #> Alter|No (t-1)|No (t) Alter|No (t-1)|Yes (t) #> Ego|No (t-1)|No (t) 2 0 #> Ego|No (t-1)|Yes (t) 0 0 #> Ego|Yes (t-1)|No (t) 0 0 #> Ego|Yes (t-1)|Yes (t) 0 0 #> Alter|Yes (t-1)|No (t) Alter|Yes (t-1)|Yes (t) #> Ego|No (t-1)|No (t) 0 0 #> Ego|No (t-1)|Yes (t) 1 0 #> Ego|Yes (t-1)|No (t) 0 0 #> Ego|Yes (t-1)|Yes (t) 0 0 #> #> $`added (a)`$`period 4` #> Alter|No (t-1)|No (t) Alter|No (t-1)|Yes (t) #> Ego|No (t-1)|No (t) 3 0 #> Ego|No (t-1)|Yes (t) 0 0 #> Ego|Yes (t-1)|No (t) 1 0 #> Ego|Yes (t-1)|Yes (t) 0 0 #> Alter|Yes (t-1)|No (t) Alter|Yes (t-1)|Yes (t) #> Ego|No (t-1)|No (t) 0 0 #> Ego|No (t-1)|Yes (t) 0 0 #> Ego|Yes (t-1)|No (t) 0 0 #> Ego|Yes (t-1)|Yes (t) 0 0 #> #> $`added (a)`$`period 5` #> Alter|No (t-1)|No (t) Alter|No (t-1)|Yes (t) #> Ego|No (t-1)|No (t) 9 0 #> Ego|No (t-1)|Yes (t) 0 0 #> Ego|Yes (t-1)|No (t) 0 0 #> Ego|Yes (t-1)|Yes (t) 0 0 #> Alter|Yes (t-1)|No (t) Alter|Yes (t-1)|Yes (t) #> Ego|No (t-1)|No (t) 0 0 #> Ego|No (t-1)|Yes (t) 0 0 #> Ego|Yes (t-1)|No (t) 0 0 #> Ego|Yes (t-1)|Yes (t) 0 0 #> #> #> $`removed (d)` #> $`removed (d)`$`period 2` #> Alter|No (t-1)|No (t) Alter|No (t-1)|Yes (t) #> Ego|No (t-1)|No (t) 2 0 #> Ego|No (t-1)|Yes (t) 0 0 #> Ego|Yes (t-1)|No (t) 0 0 #> Ego|Yes (t-1)|Yes (t) 0 0 #> Alter|Yes (t-1)|No (t) Alter|Yes (t-1)|Yes (t) #> Ego|No (t-1)|No (t) 0 0 #> Ego|No (t-1)|Yes (t) 0 0 #> Ego|Yes (t-1)|No (t) 0 0 #> Ego|Yes (t-1)|Yes (t) 0 0 #> #> $`removed (d)`$`period 3` #> Alter|No (t-1)|No (t) Alter|No (t-1)|Yes (t) #> Ego|No (t-1)|No (t) 1 0 #> Ego|No (t-1)|Yes (t) 1 0 #> Ego|Yes (t-1)|No (t) 0 0 #> Ego|Yes (t-1)|Yes (t) 0 0 #> Alter|Yes (t-1)|No (t) Alter|Yes (t-1)|Yes (t) #> Ego|No (t-1)|No (t) 1 0 #> Ego|No (t-1)|Yes (t) 0 0 #> Ego|Yes (t-1)|No (t) 0 0 #> Ego|Yes (t-1)|Yes (t) 0 0 #> #> $`removed (d)`$`period 4` #> Alter|No (t-1)|No (t) Alter|No (t-1)|Yes (t) #> Ego|No (t-1)|No (t) 3 0 #> Ego|No (t-1)|Yes (t) 0 0 #> Ego|Yes (t-1)|No (t) 1 0 #> Ego|Yes (t-1)|Yes (t) 0 0 #> Alter|Yes (t-1)|No (t) Alter|Yes (t-1)|Yes (t) #> Ego|No (t-1)|No (t) 0 0 #> Ego|No (t-1)|Yes (t) 0 0 #> Ego|Yes (t-1)|No (t) 0 0 #> Ego|Yes (t-1)|Yes (t) 0 0 #> #> $`removed (d)`$`period 5` #> Alter|No (t-1)|No (t) Alter|No (t-1)|Yes (t) #> Ego|No (t-1)|No (t) 9 0 #> Ego|No (t-1)|Yes (t) 0 0 #> Ego|Yes (t-1)|No (t) 0 0 #> Ego|Yes (t-1)|Yes (t) 0 0 #> Alter|Yes (t-1)|No (t) Alter|Yes (t-1)|Yes (t) #> Ego|No (t-1)|No (t) 0 0 #> Ego|No (t-1)|Yes (t) 0 0 #> Ego|Yes (t-1)|No (t) 0 0 #> Ego|Yes (t-1)|Yes (t) 0 0 #> #> #> $`unchanged (s)` #> $`unchanged (s)`$`period 2` #> Alter|No (t-1)|No (t) Alter|No (t-1)|Yes (t) #> Ego|No (t-1)|No (t) 32 1 #> Ego|No (t-1)|Yes (t) 1 0 #> Ego|Yes (t-1)|No (t) 1 1 #> Ego|Yes (t-1)|Yes (t) 0 0 #> Alter|Yes (t-1)|No (t) Alter|Yes (t-1)|Yes (t) #> Ego|No (t-1)|No (t) 1 0 #> Ego|No (t-1)|Yes (t) 1 0 #> Ego|Yes (t-1)|No (t) 0 0 #> Ego|Yes (t-1)|Yes (t) 0 0 #> #> $`unchanged (s)`$`period 3` #> Alter|No (t-1)|No (t) Alter|No (t-1)|Yes (t) #> Ego|No (t-1)|No (t) 30 2 #> Ego|No (t-1)|Yes (t) 1 0 #> Ego|Yes (t-1)|No (t) 2 0 #> Ego|Yes (t-1)|Yes (t) 0 0 #> Alter|Yes (t-1)|No (t) Alter|Yes (t-1)|Yes (t) #> Ego|No (t-1)|No (t) 2 0 #> Ego|No (t-1)|Yes (t) 0 0 #> Ego|Yes (t-1)|No (t) 0 0 #> Ego|Yes (t-1)|Yes (t) 0 0 #> #> $`unchanged (s)`$`period 4` #> Alter|No (t-1)|No (t) Alter|No (t-1)|Yes (t) #> Ego|No (t-1)|No (t) 33 0 #> Ego|No (t-1)|Yes (t) 0 0 #> Ego|Yes (t-1)|No (t) 1 0 #> Ego|Yes (t-1)|Yes (t) 0 0 #> Alter|Yes (t-1)|No (t) Alter|Yes (t-1)|Yes (t) #> Ego|No (t-1)|No (t) 2 0 #> Ego|No (t-1)|Yes (t) 0 0 #> Ego|Yes (t-1)|No (t) 0 0 #> Ego|Yes (t-1)|Yes (t) 0 0 #> #> $`unchanged (s)`$`period 5` #> Alter|No (t-1)|No (t) Alter|No (t-1)|Yes (t) #> Ego|No (t-1)|No (t) 31 0 #> Ego|No (t-1)|Yes (t) 0 0 #> Ego|Yes (t-1)|No (t) 0 0 #> Ego|Yes (t-1)|Yes (t) 0 0 #> Alter|Yes (t-1)|No (t) Alter|Yes (t-1)|Yes (t) #> Ego|No (t-1)|No (t) 0 0 #> Ego|No (t-1)|Yes (t) 0 0 #> Ego|Yes (t-1)|No (t) 0 0 #> Ego|Yes (t-1)|Yes (t) 0 0 #> #>