DynamicData: Three dynamic networks objects: Full Network, Plus...

In knrg07/NobleNetworks:

Description

Three single-mode undirected dynamic networks, each varying in size but and general start date. Time steps are in WEEKs, where the full Network (dynamic) consists of a total of 148 steps. Contacts are defined by a spatial window of 10-meters within a 10-minute window.

Usage

data(DynamicData)

Format

Four networkDynamic objects

dynamic

a dynamic network for all 3 species at the same time; includes within and between-species interactions based on

dynPig

a dynamic network for between-species interactions based on contact definition above for wild pigs, ONLY

dynCow

a dynamic network for between-species interactions based on contact definition above for grazing cattle on local ranch, ONLY) \itemdynDeera dynamic network for between-species interactions based on contact definition above for white-tailed deer, ONLY

Details

Complete network includes 116 nodes / actors from August 22, 2017 through May 02, 2020.

Author(s)

Karla Rascon-Garcia [e-mail]

Examples

data(DynamicData)
library(sna)
library(tsna)
library(networkDynamic)

## Not run: 
gden(dynamic, mode = 'graph')
gden(dynPig, mode = 'graph')
gden(dynCow, mode = 'graph')
gden(dynDeer, mode = 'graph')

reachcow <- tReach(dynCow, sample = 25)
reachpig <- tReach(dynPig, sample = 25)
reachdeer <- tReach(dynDeer, sample = 25)

boxplot(cbind(reachcow, reachdeer, reachpig), main = 'Reachable Set Size Distributions for Networks by Species', col = c("chartreuse4", "goldenrod3", "tomato"), ylim=c(0,30))

mean(degree(as.network(dynPig)))
mean(degree(as.network(dynCow)))
mean(degree(as.network(dynDeer)))

par(mfrow=c(3,1))
plot(tEdgeDissolution(dynPig), main = 'Edge Dissolution Counts for PIGS')
plot(tEdgeDissolution(dynCow), main = 'Edge Dissolution Counts for CATTLE')
plot(tEdgeDissolution(dynDeer), main = 'Edge Dissolution Counts for DEER')

par(mfrow=c(3,1))
plot(tEdgeFormation(dynPig), main = 'Edge Formation Counts for PIGS', ylim =c(0,30000)) ## y max = 5000
plot(tEdgeFormation(dynCow), main = 'Edge Formation Counts for CATTLE', ylim =c(0,30000)) ## y max = 30,000
plot(tEdgeFormation(dynDeer), main = 'Edge Formation Counts for DEER', ylim =c(0,30000)) ## y max = 13,000

bet <- tSnaStats(dynamic, snafun = 'centralization', start = 0, end = 148, time.interval = 1, aggregate.dur = 1, FUN = 'betweenness')
clo <- tSnaStats(dynamic, snafun = 'centralization', start = 0, end = 148, time.interval = 1, aggregate.dur = 1, FUN = 'closeness')
den <- tSnaStats(dynamic, snafun = 'centralization', start = 0, end = 148, time.interval = 1, aggregate.dur = 1, FUN = 'Density')

\keyword{datasets}

## End(Not run)

knrg07/NobleNetworks documentation built on July 23, 2020, 12:35 a.m.