Guild war 2 release day

multi sec2day ( $sec ) { $sec / (60*60*24) }

multi sec2day ( @sec ) { @sec.map: {sec2day( $_ )} }

sub mean(@d) { @d R/ [+] @d }

sub sd (@d) {

my $mean = mean(@d);

sqrt @d R/ [+] map (* - $mean)**2, @d

}

sub add_errorbar_on_95CL ( @d ) {

my $range = 1.96*( sd(@d)/sqrt(@d.elems));

my $mean = &mean(@d);

($mean - $range, $mean, $mean + $range)

}

# cannot use webspider package or istall all nostandard package

# put data on code is very ugly , but I dont'know how to hand this online codepad terminal

my @release_day = gather for <

2018 6 26

2018 3 6

2017 11 28

2017 9 22

2017 7 25

2017 5 2

2017 2 8

2016 11 21

2016 9 20

2016 7 26

>

-> $y, $m, $d {

take DateTime.new(

year => $y,

month => $m,

day => $d

);

};

my @release_interval = gather for 0..(@release_day.elems - 2) -> $i {

take @release_day[$i] - @release_day[($i + 1)];

};

#say sec2day(@release_interval);

#say sec2day(&add_errorbar_on_95CL(@release_interval));

#say @release_day[0].later( day => $_ ) for sec2day(&add_errorbar_on_95CL(@release_interval)) ;

say "

Living World release log (form S3 ) {@release_day».Date}

The days between individual Living World {&sec2day(@release_interval)».Int}(day)

The mean of release interval is { sec2day(&add_errorbar_on_95CL(@release_interval))[1] }(day)

add errorbar (95 Confidence interval) { sec2day(&add_errorbar_on_95CL(@release_interval))[0] }(day) ~ { sec2day(&add_errorbar_on_95CL(@release_interval))[2] }(day)

last release day = {@release_day[0].Date }

Next release day = { (@release_day[0].later( day => $_ ).Date for sec2day(&add_errorbar_on_95CL(@release_interval))) }

"