# NOT RUN {
#Load the synthetic population network dataset.
data("pop.network")
#Draw an RDS sample from the simulated network using the sampleRDS function
#from the package RDStreeboot.
require(RDStreeboot)
RDS.samp <- sample.RDS(pop.network$traits, pop.network$adj.mat, 200, 10,
3, c(1/6,1/3,1/3,1/6), FALSE)
#Tranform RDS.samp to an rds.data.frame object
require(RDS)
to.rds(RDS.data=RDS.samp)
# }
Run the code above in your browser using DataLab