Difference in Time of Adoption (TOA) between individuals
Difference in Time of Adoption (TOA) between individuals
Creates n∗n matrix indicating the difference in times of adoption between each pair of nodes
toa_diff(obj, t0 =NULL, labels =NULL)
Arguments
obj: Either an integer vector of size n containing time of adoption of the innovation, or a diffnet object.
t0: Integer scalar. Sets the lower bound of the time window (e.g. 1955).
labels: Character vector of size n. Labels (ids) of the vertices.
Returns
An n∗n symmetric matrix indicating the difference in times of adoption between each pair of nodes.
Details
Each cell ij of the resulting matrix is calculated as c("", "\n", "toa(j)−toa(i)"), so that whenever its positive it means that the j-th individual (alter) adopted the innovation sooner.
Examples
# Generating a random vector of timeset.seed(123)times <- sample(2000:2005,10,TRUE)# Computing the TOA differencestoa_diff(times)