ddrs-lab2/code/8b-report.R

4 lines
206 B
R

mm1_var <- var(sapply(1:100, \(...) calc_stats_mm1(...)$avg_delay))
mg1_var1 <- var(sapply(1:100, \(...) calc_stats_mg1(...)$avg_delay))
mg1_var2 <- var(sapply(1:100, \(...) calc_stats_mg1(...)$avg_delay))