Add RFID data set

Author: gaborcsardi

LICENSE

@@ -89,6 +89,18 @@ cortical areas and connections involved in the tactile function of the
 visual cortex by network analysis. European Journal of Neuroscience
 23(7):1919–1930, 2006. 
 
+rfid
+----
+
+This data set is licensed under a GPL v3 license.
+
+Please cite the following reference if you use this dataset:
+
+P. Vanhems, A. Barrat, C. Cattuto, J.-F. Pinton, N. Khanafer,
+C. Regis, B.-a. Kim, B. Comte, N. Voirin: Estimating potential
+infection transmission routes in hospital wards using wearable
+proximity sensors. PloS One 8(9), e73970 306 (2013).
+
 yeast
 -----
 

data/rfid.rda

@@ -706,3 +706,22 @@ enron$LDC_names <- ldc
 enron$LDC_desc <- ldc_desc
 enron$name <- "Enron email network"
 enron$Citation <- c('C.E. Priebe, J.M. Conroy, D.J. Marchette, and Y. Park, "Scan Statistics on Enron Graphs," Computational and Mathematical Organization Theory, Volume 11, Number 3, p229 - 247, October 2005, Springer Science+Business Media B.V.')
+
+#####################################################################
+## RFID
+
+library(sand)
+data(hc)
+
+edges <- hc[,c(2,3,1)]
+vv <- character(max(hc[,2:3]))
+vv[hc$ID1] <- as.character(hc$S1)
+vv[hc$ID2] <- as.character(hc$S2)
+
+v <- data.frame(id = seq_along(vv), Status = vv, stringsAsFactors = FALSE)
+
+rfid <- graph_from_data_frame(edges, vertices = v, directed = FALSE)
+rfid <- delete_vertex_attr(rfid, 'name')
+
+rfid$name <- "RFID hospital encounter network"
+rfid$Citation <- "P. Vanhems, A. Barrat, C. Cattuto, J.-F. Pinton, N. Khanafer,   C. Regis, B.-a. Kim, B. Comte, N. Voirin: Estimating potential   infection transmission routes in hospital wards using wearable   proximity sensors. PloS One 8(9), e73970 306 (2013)."

inst/getdata.R

@@ -0,0 +1,39 @@
+\name{rfid}
+\alias{rfid}
+\title{Hospital encounter network data}
+\description{
+  Records of contacts among patients and various types of health care
+  workers in the geriatric unit of a hospital in Lyon, France, in
+  2010, from 1pm on Monday, December 6 to 2pm on Friday, December
+  10. Each of the 75 people in this study consented to wear RFID 
+  sensors on small identification badges during this period, which made
+  it possible to record when any two of them were in face-to-face
+  contact with each other (i.e., within 1-1.5 m of each other) during
+  a 20-second interval of time.
+}
+\usage{
+rfid
+}
+\format{
+  An igraph graph with graph attributes \sQuote{name} and
+  \sQuote{Citation}, vertex attribute \sQuote{Status} and edge attribute
+  \sQuote{Time}.
+
+  \sQuote{Status} is the status of the person. Status codes:
+  administrative staff (ADM), medical doctor (MED), paramedical staff,
+  such as nurses or nurses' aides (NUR), and patients (PAT).
+
+  \sQuote{Time} is the time of the encounter, it is the second when the
+  20 second encounter terminated.
+}
+\source{
+  See the reference below.
+  Please cite it if you use this dataset in your work.
+}
+\references{
+  P. Vanhems, A. Barrat, C. Cattuto, J.-F. Pinton, N. Khanafer,
+  C. Regis, B.-a. Kim, B. Comte, N. Voirin: Estimating potential
+  infection transmission routes in hospital wards using wearable
+  proximity sensors. PloS One 8(9), e73970 306 (2013).
+}
+\keyword{datasets}