# NOT RUN {
pair_frame <- data.frame(
ORIG_ID_STATE = rep(germany_grid$ID_STATE, times = 16),
DEST_ID_STATE = rep(germany_grid$ID_STATE, each = 16))
sp_network_pair("ge","ge",pair_frame,"ORIG_ID_STATE","DEST_ID_STATE")
# }
Run the code above in your browser using DataLab