updating nestedness R script