Commit faf2f0a3 authored by Sebastian Schweer's avatar Sebastian Schweer

Minor Bugfix in Plot in present_estimates

parent 4538f667
Package: queueingnetworkR
Title: Simulation and Estimation of a Geom/Geom/infty Tandem Network
Version: 0.1.0
Version: 0.1.1
[email protected]: person("Sebastian", "Schweer", email = "[email protected]", role = c("aut", "cre"))
Description: Simulation and Documentation for the Paper "Nonparametric Estimation of the Service Time Distribution in Discrete-Time Queueing Networks" by Cornelia Wichelhaus and Sebastian Schweer
Depends: R (>= 3.4.2), utils, stats, ggplot2, plyr, reshape2
......@@ -43,8 +43,7 @@ present_estimates <- function(n_reps, max_lag, G_2, ...){
result_df$rep_id = as.factor(index_set)
#delta_result_df$rep_id = as.factor(index_set)
result_G2_df$rep_id = as.factor(c("True", index_set))
levels(result_G2_df$rep_id) <- c("True Dist", index_set)
result_G2_df$rep_id = factor(c("True", index_set), levels = c("True", index_set))
#delta_result_G2_df$rep_id = as.factor(index_set)
plot_result_G2_df = melt(result_G2_df, id.vars = 'rep_id')
Markdown is supported
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment