re-fixed degree distribution

ErikKusch · Dec 28, 2020 · f5e3ffe · f5e3ffe
1 parent b330da3
commit f5e3ffe
Show file tree

Hide file tree

Showing 8 changed files with 58 additions and 12 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -1,11 +1,12 @@
 # Generated by roxygen2: do not edit by hand
 
 export(CompareExtinctions)
-export(DergreeDistribution)
+export(DegreeDistribution)
 export(ExtinctionOrder)
 export(ExtinctionPlot)
 export(Mostconnected)
 export(RandomExtinctions)
+export(SimulateExtinctions)
 importFrom(MASS,fitdistr)
 importFrom(broom,augment)
 importFrom(broom,glance)

diff --git a/R/Extintions.R b/R/Extintions.R
@@ -22,6 +22,9 @@
 #' @examples
 #' data("net")
 #' SimulateExtinctions(Network = net, Method = "Mostconnected")
+#' @author Derek Corcoran <[email protected]>
+#' @author M.Isidora Avila Thieme <[email protected]>
+#' @export
 
 
 SimulateExtinctions <- function(Network, Method){

diff --git a/R/Powerlaw.R b/R/Powerlaw.R
@@ -55,7 +55,7 @@
 #' @export
 
 
-DergreeDistribution <- function(Network, scale = "arithmetic"){
+DegreeDistribution <- function(Network, scale = "arithmetic"){
   AIC <- Cumulative <- Exp <- fit <- model <- LogPower <- logLik <- BIC <- Power <- Normal.Resid <- LogExp <- family <- AICcNorm <- NULL
   totaldegree<- degree(Network)
   K <- 0:max(totaldegree)

diff --git a/man/CompareExtinctions.Rd b/man/CompareExtinctions.Rd
diff --git a/man/DergreeDistribution.Rd → man/DegreeDistribution.Rd b/man/DergreeDistribution.Rd → man/DegreeDistribution.Rd
diff --git a/man/Mostconnected.Rd b/man/Mostconnected.Rd
diff --git a/man/SimulateExtinctions.Rd b/man/SimulateExtinctions.Rd
diff --git a/vignettes/How_to_use_the_NetworkExtinction_Package.Rmd b/vignettes/How_to_use_the_NetworkExtinction_Package.Rmd
@@ -173,14 +173,14 @@ RandomExtinctions(Network= net, nsim= 100)
 
 ```{r, echo = FALSE}
 data(net)
-set.seed(123)
-Test <- RandomExtinctions(Network= net, nsim= 50)
+set.seed(707)
+Test <- RandomExtinctions(Network= net, nsim= 100)
 knitr::kable(Test$sims, caption = "Table 3: The resulting dataframe of the RandomExtinctions function")
 ```
 
 ```{r, echo = FALSE, fig.cap= "Figure 5. The resulting graph of the RandomExtinctions function"}
 data(net)
-set.seed(123)
+set.seed(707)
 Test$graph
 ```