plot_contribution: Plotting contributions calculated from the observed data and...

In thongphamthe/PAFit: Generative Mechanism Estimation in Temporal Complex Networks

Plotting contributions calculated from the observed data and contributions calculated from simulated data

Description

This function extracts from a Simulated_Data_From_Fitted_Model object contributions of rich-get-richer and fit-get-richer effects calculated using simulated networks and plots these contributions versus the contributions calculated from the original observed network. See joint_estimate for a description of how the contributions are calculated.

Usage

plot_contribution(simulated_object,
                  original_result,
                  which_plot = "PA",
                  y_label = ifelse("PA" == which_plot,
                  "Contribution of the rich-get-richer effect",
                  "Contribution of the fit-get-richer effect"),
                  legend_pos_x = 0.75,
                  legend_pos_y = 0.9)

Arguments

simulated_object	an object of class Simulated_Data_From_Fitted_Model that contains simulated data.
original_result	an object of class Full_PAFit_result that contains the estimation results from the original observed data.
which_plot	String. “PA": plots contributions of rich-get-richer effect, “fit": plots contribution of fit-get-richer effect. Default is “PA".
y_label	String. The label for y-axis. Default is "Contribution of rich-get-richer effect".
legend_pos_x	Numeric. The horizontal position, between (0,1), of the legend. Default value is 0.75.
legend_pos_y	Numeric. The vertical position, between (0,1), of the legend. Default value is 0.9.

Value

Output a plot.

Author(s)

Thong Pham [e-mail]

References

1. Pham, T., Sheridan, P. & Shimodaira, H. (2015). PAFit: A Statistical Method for Measuring Preferential Attachment in Temporal Complex Networks. PLoS ONE 10(9): e0137796. (\Sexpr[results=rd]{tools:::Rd_expr_doi("10.1371/journal.pone.0137796")}).

2. Pham, T., Sheridan, P. & Shimodaira, H. (2016). Joint Estimation of Preferential Attachment and Node Fitness in Growing Complex Networks. Scientific Reports 6, Article number: 32558. (\Sexpr[results=rd]{tools:::Rd_expr_doi("10.1038/srep32558")}).

3. Pham, T., Sheridan, P. & Shimodaira, H. (2020). PAFit: An R Package for the Non-Parametric Estimation of Preferential Attachment and Node Fitness in Temporal Complex Networks. Journal of Statistical Software 92 (3). (\Sexpr[results=rd]{tools:::Rd_expr_doi("10.18637/jss.v092.i03")}).

4. Inoue, M., Pham, T. & Shimodaira, H. (2020). Joint Estimation of Non-parametric Transitivity and Preferential Attachment Functions in Scientific Co-authorship Networks. Journal of Informetrics 14(3). (\Sexpr[results=rd]{tools:::Rd_expr_doi("10.1016/j.joi.2020.101042")}).

See Also

joint_estimate, plot_contribution

Examples

## Not run: 
  
  library("PAFit")
  net_object     <- generate_net(N = 500, m = 10, s = 10, alpha = 0.5)
  net_stat       <- get_statistics(net_object) 
  result         <- joint_estimate(net_object, net_stat)
  simulated_data <- generate_simulated_data_from_estimated_model(net_object, net_stat, result)
  plot_contribution(simulated_data, result, which_plot = "PA")
  plot_contribution(simulated_data, result, which_plot = "fit")
  
## End(Not run)

thongphamthe/PAFit documentation built on March 30, 2024, 4:14 p.m.