# Computing two-steps away threshold with the Brazilian farmers data --------
data(brfarmersDiffNet)
expo1 <- threshold(brfarmersDiffNet)
expo2 <- threshold(brfarmersDiffNet^2)
# Computing correlation
cor(expo1,expo2)
# Drawing a qqplot
qqplot(expo1, expo2)
# Working with inverse ------------------------------------------------------
brf2_step <- brfarmersDiffNet^2
brf2_step <- 1/brf2_step
ba <- rdiffnet(10,5, seed.graph="scale-free", rgraph.args=list(m=4))
Run the code above in your browser using DataLab