prioritiseFLOW: Prioritise sites according to population flow

In KiranLDA/migflow: Calculates the maximum flow through a network

Description

Prioritise sites according to population flow

Usage

prioritiseFLOW(network, sites, toplot = TRUE, pop = 1e+05,
  returnNET = TRUE)

Arguments

network	adjacency network describing where birds are going
sites	network sites including latitude and longitude, and population count at each site
toplot	TRUE/FALSE to determine whether the output is plotted or not
pop	number of individuals in the population
returnNET	TRUE/FALSE whether or not the network is a return network or not

Value

a list containting the prioritisation (as a list of the sites in the order they are removed), the network which was randomly generated, the tracks that were randomly generated, and the sites that were randomly generated for animals to use.

Examples

pop=100000
rand_net = randomNET(nsites=15,pop=pop)

# priotise sites according to flow through network
prioritiseFLOW(rand_net$network, rand_net$sites, returnNET=FALSE)

# with a return network
net <- randomSTAR(nwintering=40, nbreeding=5,anadromous=FALSE)
network <- shortenNET(net$network, from = "Ssupersink", to = "Nsupersink")


colnames(network)[1]<- rownames(network)[1] <- "Ssupersource"
colnames(network)[length(colnames(network))] <-  "Nsupersink"
rownames(network)[length(rownames(network))] <- "Nsupersink"
sites <- net$sites

# priotise sites according to flow through network
prioritiseFLOW(network, sites, toplot=TRUE, returnNET=TRUE)



# with a return network
net <- randomPARALLEL(nwintering=40, sd_dist=2000, nbreeding=5)
network <- shortenNET(net$network, from = "Ssupersink", to = "Nsupersink")


colnames(network)[1]<- rownames(network)[1] <- "Ssupersource"
colnames(network)[length(colnames(network))] <-  "Nsupersink"
rownames(network)[length(rownames(network))] <- "Nsupersink"
sites <- net$sites

# priotise sites according to flow through network
prioritiseFLOW(network, sites, toplot=TRUE, returnNET=TRUE)


# with a return network
net <- randomDIRECTED(nwintering=40, sd_dist=2000, nbreeding=5)
network <- shortenNET(net$network, from = "Ssupersink", to = "Nsupersink")

colnames(network)[1]<- rownames(network)[1] <- "Ssupersource"
colnames(network)[length(colnames(network))] <-  "Nsupersink"
rownames(network)[length(rownames(network))] <- "Nsupersink"
sites <- net$sites

# priotise sites according to flow through network
prioritiseFLOW(network, sites, toplot=TRUE, returnNET=TRUE)

KiranLDA/migflow documentation built on Aug. 8, 2019, 8:55 p.m.