mirror of
https://github.com/Zenithsiz/ist-ddrs-lab2
synced 2026-02-03 22:23:55 +00:00
17 lines
605 B
R
17 lines
605 B
R
source("code/8.R")
|
|
|
|
set.seed(0)
|
|
|
|
stopping_condition <- 10000
|
|
mm1_var <- var(sapply(1:100, function(...) calc_stats_mm1(0.5, 1, 0.99, 101, 0.01, stopping_condition)$avg_delay))
|
|
mg1_var1 <- var(sapply(1:100, function(...) calc_stats_mg1(0.5, 1, 0.9, 11, 0.1, stopping_condition)$avg_delay))
|
|
mg1_var2 <- var(sapply(1:100, function(...) calc_stats_mg1(0.5, 1, 0.99, 101, 0.01, stopping_condition)$avg_delay))
|
|
|
|
output <- list(
|
|
mm1_var = signif(mm1_var, 4),
|
|
mg1_1_var = signif(mg1_var1, 4),
|
|
mg1_2_var = signif(mg1_var2, 4)
|
|
)
|
|
str(output)
|
|
write.table(output, "output/8b.csv", sep = "\t", row.names = FALSE)
|