Nothing
RInSp2vegan <-
function(dataset){
#
# The procedure converts an RIS class object into a dataframe to be used as input for
# the "Vegan" package to calculate nestedness indices.
#
# Author: Nicola ZACCARELLI, Giorgio MANCINELLI, Dan BOLNICK
# E-mail: nicola.zaccarelli@gmail.com,
# giorgio.mancinelli@unisalento.it
# danbolnick@mail.texas.edu
#
# Version: 1.0
# Date: 10/11/2012
#
# some checking
# if (class(dataset) != "RInSp") stop("The input must be an object of class RInSp") # Changed because of the use of class(.)
if (!inherits(dataset, "RInSp")) stop("The input must be an object of class RInSp")
if (dataset$data.type != "proportions")
{Ris <- dataset$proportions
Ris[Ris > 0] <- 1
} else {
Ris <- dataset$resources
Ris[Ris > 0] <- 1
}
Ris <- as.data.frame(Ris)
return(Ris)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.