# NOT RUN {
# download dataset using ICON
get_data("aishihik_intensity")
# don't care about relabeled vertices
converted <- as.network(aishihik_intensity, directed = TRUE)
# we care about relabeled vertices
converted2 <- as.network(aishihik_intensity, directed = TRUE,
return_relabeled = TRUE)
# get the network
converted_network <- converted2$network
# get the relabeling key-pair vector
converted_relabel <- converted2$labels
# }
Run the code above in your browser using DataLab