#' @title Title
#'
#' @description Description
#'
#' @param x A number.
#' @param y A number.
#' @return return value here.
#' @details
#' Additional details here
#' @examples
#' example function call here
#' @export
setup_initialize_network <- function(params){
#create initial network, set nodal attributes "sex","att1","role"
#input: initial parameter list (evoparams)
#output: initial network ("nw")
# initialize network
nw <- network::network.initialize(params$initial_pop,
directed = FALSE)
#"id" mainly for qaqc testing
id_vec <- 1:params$initial_pop
network::set.vertex.attribute(x = nw, attr = "id",
value = id_vec)
if(params$model_sex!="msm"){
sex_vec <- sample(c("m","f"),params$initial_pop,prob=c(0.5,0.5),replace=T)
network::set.vertex.attribute(x = nw, attr = "sex", value =sex_vec)
} else {
network::set.vertex.attribute(x=nw, attr="sex", value="m")
}
#set generic atts on nw if in use
if(!is.logical(params$generic_nodal_att_values))
nw<- social_set_generic_attribute_on_nw(params, nw)
#set msm roles on nw if in use (default: all versatile)
if(!is.logical(params$role_props) && params$model_sex=="msm")
nw<-social_set_msm_role_on_nw(params,nw)
return(nw)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.