# 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)
#Compute 95\% confidence intervals using the percentile method
neighb(RDS.data=RDS.samp, quant=c(0.025, 0.975),method="percentile", B=100)
# }
Run the code above in your browser using DataLab