#' Returns a vector of locations given a matrix of movement probabilities
#'
#'@param moveProb Matrix of movement probabilities where each row is the probability vector for an individual
#'@export
move<-function(moveProb){
to<-matrix(ncol=ncol(moveProb),nrow=nrow(moveProb))
for(i in 1:nrow(to)){
to[i,]<-rmultinom(1,1,moveProb[i,])
}
out<-apply(to,1,function(x){which(x==1)})
return(out)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.