## create network with unobserved edges from wave 1

   rm(list=ls())

   ## libraries
   library(network)

## network: Classes for Relational Data
## Version 1.15 created on 2019-04-01.
## copyright (c) 2005, Carter T. Butts, University of California-Irvine
##                     Mark S. Handcock, University of California -- Los Angeles
##                     David R. Hunter, Penn State University
##                     Martina Morris, University of Washington
##                     Skye Bender-deMoll, University of Washington
##  For citation information, type citation("network").
##  Type help("network-package") to get started.

   ## data
   load(file="imputed_matrix.RData")

   ## convert to network form
   imputed_matrix <- mat.to.impute
   imputed_network <- as.network.matrix(imputed_matrix, "adjacency", directed=FALSE)

   ## save object
   save.image("imputed_network.RData")