# processing the random network 'randomREH'
library(remify)
data(randomREH)
reh <- remify(edgelist = randomREH$edgelist,
model = "tie",
riskset = "manual",
omit_dyad = randomREH$omit_dyad)
# convert 'remify' object to output_format = "relevent-rem"
relevent_rem_obj <- rehshape(data = reh, output_format = "relevent-rem")
str(relevent_rem_obj)
# convert 'remify' object to output_format = "relevent-rem.dyad"
relevent_rem.dyad_obj <- rehshape(data = reh, output_format = "relevent-rem.dyad")
summary(relevent_rem.dyad_obj)
Run the code above in your browser using DataLab