Hi All,
I have attached a data frame below and I'm trying to create a new column called Mean with no anomalies, the criteria in which this column should be created is first we have to group by three columns(Product id, location id and Month) in the data frame and after that there is a condition to a column called Anomaly(filter only for no) and then find the mean of adjusted sales units column as this should be updated on the new column(Mean with no anomalies)
Used mutate function but taking longer time to run and throws an error as well.
Could any one please help me with this.
Thank you.
library(tidyverse)
library(anomalize)
library(lubridate)
library(openxlsx)
library(tibble)
library(norm)
library(ggplot2)
test.df<-structure(list(Product.ID = c("A", "A", "A", "A", "A", "A", "A",
"A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A",
"A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A",
"A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A",
"A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A",
"A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A",
"A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A",
"A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A",
"A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A",
"A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A",
"A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A",
"A", "A", "A", "A", "A", "A", "A"), Location.ID = c("A1", "A1",
"A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1",
"A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1",
"A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1",
"A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1", "A1",
"A1", "A1", "A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2",
"A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2",
"A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2",
"A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2", "A2",
"A2", "A2", "A2", "A2", "A2", "A2", "A3", "A3", "A3", "A3", "A3",
"A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3",
"A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3",
"A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3",
"A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3", "A3"),
Time.Period = structure(c(17410, 17440, 17471, 17501, 17532,
17563, 17591, 17622, 17652, 17683, 17713, 17744, 17775, 17805,
17836, 17866, 17897, 17928, 17956, 17987, 18017, 18048, 18078,
18109, 18140, 18170, 18201, 18231, 18262, 18293, 18322, 18353,
18383, 18414, 18444, 18475, 18506, 18536, 18567, 18597, 18628,
18659, 18687, 18718, 18748, 18779, 18809, 18840, 17410, 17440,
17471, 17501, 17532, 17563, 17591, 17622, 17652, 17683, 17713,
17744, 17775, 17805, 17836, 17866, 17897, 17928, 17956, 17987,
18017, 18048, 18078, 18109, 18140, 18170, 18201, 18231, 18262,
18293, 18322, 18353, 18383, 18414, 18444, 18475, 18506, 18536,
18567, 18597, 18628, 18659, 18687, 18718, 18748, 18779, 18809,
18840, 17410, 17440, 17471, 17501, 17532, 17563, 17591, 17622,
17652, 17683, 17713, 17744, 17775, 17805, 17836, 17866, 17897,
17928, 17956, 17987, 18017, 18048, 18078, 18109, 18140, 18170,
18201, 18231, 18262, 18293, 18322, 18353, 18383, 18414, 18444,
18475, 18506, 18536, 18567, 18597, 18628, 18659, 18687, 18718,
18748, 18779, 18809, 18840), class = "Date"), Month = c("09",
"10", "11", "12", "01", "02", "03", "04", "05", "06", "07",
"08", "09", "10", "11", "12", "01", "02", "03", "04", "05",
"06", "07", "08", "09", "10", "11", "12", "01", "02", "03",
"04", "05", "06", "07", "08", "09", "10", "11", "12", "01",
"02", "03", "04", "05", "06", "07", "08", "09", "10", "11",
"12", "01", "02", "03", "04", "05", "06", "07", "08", "09",
"10", "11", "12", "01", "02", "03", "04", "05", "06", "07",
"08", "09", "10", "11", "12", "01", "02", "03", "04", "05",
"06", "07", "08", "09", "10", "11", "12", "01", "02", "03",
"04", "05", "06", "07", "08", "09", "10", "11", "12", "01",
"02", "03", "04", "05", "06", "07", "08", "09", "10", "11",
"12", "01", "02", "03", "04", "05", "06", "07", "08", "09",
"10", "11", "12", "01", "02", "03", "04", "05", "06", "07",
"08", "09", "10", "11", "12", "01", "02", "03", "04", "05",
"06", "07", "08"), ADJUSTEDSALESUNITS = c(5.399993, 9, 10,
9, 5, 1, 3, 1, 3, 13, 3, 9, 10, 10, 9, 9, 2, 7, 5, 4, 10,
12, 8, 12, 4, 11, 4, 3, 2, 2, 3, 10, 3, 5, 1, 4, 6, 3, 4,
5, 5, 6, 8, 0, 2, 16, 4, 0, 2, 0, 0, 0, 2, 0, 1, 0, 2, 1,
0, 1, 1, 0, 0, 22, 0, 0, 0, 0, 0, 3, 0, 0, 1, 0, 0, 0, 0,
0, 0, 2, 0, 1, 1, 0, 0, 1, 5, 1, 0, 0, 0, 0, 1, 1, 2, 0,
0, 0, 0, 0, 2, 0, 0, 1, 3, 3, 0, 0, 0, 0, 0, 0, 4, 0, 1,
0, 2, 5, 1, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 1, 0, 2), observed = c(5.399993, 9,
10, 9, 5, 1, 3, 1, 3, 13, 3, 9, 10, 10, 9, 9, 2, 7, 5, 4,
10, 12, 8, 12, 4, 11, 4, 3, 2, 2, 3, 10, 3, 5, 1, 4, 6, 3,
4, 5, 5, 6, 8, 0, 2, 16, 4, 0, 2, 0, 0, 0, 2, 0, 1, 0, 2,
1, 0, 1, 1, 0, 0, 22, 0, 0, 0, 0, 0, 3, 0, 0, 1, 0, 0, 0,
0, 0, 0, 2, 0, 1, 1, 0, 0, 1, 5, 1, 0, 0, 0, 0, 1, 1, 2,
0, 0, 0, 0, 0, 2, 0, 0, 1, 3, 3, 0, 0, 0, 0, 0, 0, 4, 0,
1, 0, 2, 5, 1, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 2), season = c(0.777038472771738,
2.74129053792057, 1.03190797981261, 0.814729700470371, -2.10582075450827,
-1.67293121586203, -1.18632911147038, -5.12503895359691,
-1.516866731646, 5.5952459071069, -2.17555760111032, 2.82233211522901,
0.777038472771738, 2.74129053792057, 1.03190797981261, 0.814729700470371,
-2.10582075450827, -1.67293121586203, -1.18632911147038,
-5.12503895359691, -1.516866731646, 5.5952459071069, -2.17555760111032,
2.82233211522901, 0.777038472771738, 2.74129053792057, 1.03190797981261,
0.814729700470371, -2.10582075450827, -1.67293121586203,
-1.18632911147038, -5.12503895359691, -1.516866731646, 5.5952459071069,
-2.17555760111032, 2.82233211522901, 0.777038472771738, 2.74129053792057,
1.03190797981261, 0.814729700470371, -2.10582075450827, -1.67293121586203,
-1.18632911147038, -5.12503895359691, -1.516866731646, 5.5952459071069,
-2.17555760111032, 2.82233211522901, 0.833371148880509, -0.166586138964899,
-0.166593756633897, -0.166590193994525, -0.166692280266443,
-0.166669269334622, -0.166718772272612, -0.166674024496426,
-0.166733049111574, 0.833267261226104, -0.166634902829551,
-0.166746022224502, 0.833371148880509, -0.166586138964899,
-0.166593756633897, -0.166590193994525, -0.166692280266443,
-0.166669269334622, -0.166718772272612, -0.166674024496426,
-0.166733049111574, 0.833267261226104, -0.166634902829551,
-0.166746022224502, 0.833371148880509, -0.166586138964899,
-0.166593756633897, -0.166590193994525, -0.166692280266443,
-0.166669269334622, -0.166718772272612, -0.166674024496426,
-0.166733049111574, 0.833267261226104, -0.166634902829551,
-0.166746022224502, 0.833371148880509, -0.166586138964899,
-0.166593756633897, -0.166590193994525, -0.166692280266443,
-0.166669269334622, -0.166718772272612, -0.166674024496426,
-0.166733049111574, 0.833267261226104, -0.166634902829551,
-0.166746022224502, -0.083379119748118, -0.0833862703468412,
-0.0833902101695182, -0.0833776572117641, -0.0833370479323534,
-0.0833515760681497, -0.0833285401631488, -0.0833139808097045,
-0.0832670766077737, 0.916748731941037, -0.0832753440099169,
-0.0833419088513941, -0.083379119748118, -0.0833862703468412,
-0.0833902101695182, -0.0833776572117641, -0.0833370479323534,
-0.0833515760681497, -0.0833285401631488, -0.0833139808097045,
-0.0832670766077737, 0.916748731941037, -0.0832753440099169,
-0.0833419088513941, -0.083379119748118, -0.0833862703468412,
-0.0833902101695182, -0.0833776572117641, -0.0833370479323534,
-0.0833515760681497, -0.0833285401631488, -0.0833139808097045,
-0.0832670766077737, 0.916748731941037, -0.0832753440099169,
-0.0833419088513941, -0.083379119748118, -0.0833862703468412,
-0.0833902101695182, -0.0833776572117641, -0.0833370479323534,
-0.0833515760681497, -0.0833285401631488, -0.0833139808097045,
-0.0832670766077737, 0.916748731941037, -0.0832753440099169,
-0.0833419088513941), median_spans = c(5.1999965, 5.1999965,
5.1999965, 5.1999965, 5.1999965, 5.1999965, 5.1999965, 5.1999965,
5.1999965, 5.1999965, 5.1999965, 5.1999965, 9, 9, 9, 9, 9,
9, 9, 9, 9, 9, 9, 9, 3.5, 3.5, 3.5, 3.5, 3.5, 3.5, 3.5, 3.5,
3.5, 3.5, 3.5, 3.5, 4.5, 4.5, 4.5, 4.5, 4.5, 4.5, 4.5, 4.5,
4.5, 4.5, 4.5, 4.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5,
0.5, 0.5, 0.5, 0.5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.5, 0.5, 0.5, 0.5, 0.5,
0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5,
0.5, 0.5, 0.5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0), remainder = c(-0.577041972771738,
1.05871296207943, 3.7680955201874, 2.98527379952963, 1.90582425450827,
-2.52706528413797, -1.01366738852962, 0.92504245359691, -0.683129768353999,
2.2047575928931, -0.0244388988896844, 0.977671384770992,
0.222961527228263, -1.74129053792057, -1.03190797981261,
-0.814729700470371, -4.89417924549173, -0.327068784137966,
-2.81367088852962, 0.12503895359691, 2.516866731646, -2.5952459071069,
1.17555760111032, 0.177667884770992, -0.277038472771738,
4.75870946207943, -0.531907979812606, -1.31472970047037,
0.605820754508267, 0.172931215862034, 0.686329111470378,
11.6250389535969, 1.016866731646, -4.0952459071069, -0.324442398889684,
-2.32233211522901, 0.722961527228262, -4.24129053792057,
-1.53190797981261, -0.31472970047037, 2.60582075450827, 3.17293121586203,
4.68632911147038, 0.62503895359691, -0.983133268353999, 5.9047540928931,
1.67555760111032, -7.32233211522901, 0.666628851119491, -0.333413861035101,
-0.333406243366103, -0.333409806005475, 1.66669228026644,
-0.333330730665378, 0.666718772272612, -0.333325975503574,
1.66673304911157, -0.333267261226104, -0.333365097170449,
0.666746022224502, 0.166628851119491, 0.166586138964899,
0.166593756633897, 22.1665901939945, 0.166692280266443, 0.166669269334622,
0.166718772272612, 0.166674024496426, 0.166733049111574,
2.1667327387739, 0.166634902829551, 0.166746022224502, 0.166628851119491,
0.166586138964899, 0.166593756633897, 0.166590193994525,
0.166692280266443, 0.166669269334622, 0.166718772272612,
2.16667402449643, 0.166733049111574, 0.166732738773896, 1.16663490282955,
0.166746022224502, -1.33337114888051, 0.666586138964899,
4.6665937566339, 0.666590193994525, -0.333307719733557, -0.333330730665378,
-0.333281227727388, -0.333325975503574, 0.666733049111574,
-0.333267261226104, 1.66663490282955, -0.333253977775498,
0.083379119748118, 0.0833862703468412, 0.0833902101695182,
0.0833776572117641, 2.08333704793235, 0.0833515760681497,
0.0833285401631488, 1.0833139808097, 3.08326707660777, 2.08325126805896,
0.0832753440099169, 0.0833419088513941, -0.416620880251882,
-0.416613729653159, -0.416609789830482, -0.416622342788236,
3.58333704793235, -0.41664842393185, 0.583328540163149, -0.416686019190295,
1.58326707660777, 3.58325126805896, 0.583275344009917, 0.583341908851394,
1.08337911974812, 0.0833862703468412, 0.0833902101695182,
0.0833776572117641, 0.0833370479323534, 0.0833515760681497,
1.08332854016315, 0.0833139808097045, 0.0832670766077737,
0.0832512680589631, 0.0832753440099169, 0.0833419088513941,
0.083379119748118, 0.0833862703468412, 0.0833902101695182,
0.0833776572117641, 0.0833370479323534, 0.0833515760681497,
0.0833285401631488, 0.0833139808097045, 0.0832670766077737,
0.0832512680589631, 0.0832753440099169, 2.08334190885139),
remainder_l1 = c(-4.94423998719938, -4.94423998719938, -4.94423998719938,
-4.94423998719938, -4.94423998719938, -4.94423998719938,
-4.94423998719938, -4.94423998719938, -4.94423998719938,
-4.94423998719938, -4.94423998719938, -4.94423998719938,
-4.94423998719938, -4.94423998719938, -4.94423998719938,
-4.94423998719938, -4.94423998719938, -4.94423998719938,
-4.94423998719938, -4.94423998719938, -4.94423998719938,
-4.94423998719938, -4.94423998719938, -4.94423998719938,
-4.94423998719938, -4.94423998719938, -4.94423998719938,
-4.94423998719938, -4.94423998719938, -4.94423998719938,
-4.94423998719938, -4.94423998719938, -4.94423998719938,
-4.94423998719938, -4.94423998719938, -4.94423998719938,
-4.94423998719938, -4.94423998719938, -4.94423998719938,
-4.94423998719938, -4.94423998719938, -4.94423998719938,
-4.94423998719938, -4.94423998719938, -4.94423998719938,
-4.94423998719938, -4.94423998719938, -4.94423998719938,
-2.12692963595941, -2.12692963595941, -2.12692963595941,
-2.12692963595941, -2.12692963595941, -2.12692963595941,
-2.12692963595941, -2.12692963595941, -2.12692963595941,
-2.12692963595941, -2.12692963595941, -2.12692963595941,
-2.12692963595941, -2.12692963595941, -2.12692963595941,
-2.12692963595941, -2.12692963595941, -2.12692963595941,
-2.12692963595941, -2.12692963595941, -2.12692963595941,
-2.12692963595941, -2.12692963595941, -2.12692963595941,
-2.12692963595941, -2.12692963595941, -2.12692963595941,
-2.12692963595941, -2.12692963595941, -2.12692963595941,
-2.12692963595941, -2.12692963595941, -2.12692963595941,
-2.12692963595941, -2.12692963595941, -2.12692963595941,
-2.12692963595941, -2.12692963595941, -2.12692963595941,
-2.12692963595941, -2.12692963595941, -2.12692963595941,
-2.12692963595941, -2.12692963595941, -2.12692963595941,
-2.12692963595941, -2.12692963595941, -2.12692963595941,
0.083149751234368, 0.083149751234368, 0.083149751234368,
0.083149751234368, 0.083149751234368, 0.083149751234368,
0.083149751234368, 0.083149751234368, 0.083149751234368,
0.083149751234368, 0.083149751234368, 0.083149751234368,
0.083149751234368, 0.083149751234368, 0.083149751234368,
0.083149751234368, 0.083149751234368, 0.083149751234368,
0.083149751234368, 0.083149751234368, 0.083149751234368,
0.083149751234368, 0.083149751234368, 0.083149751234368,
0.083149751234368, 0.083149751234368, 0.083149751234368,
0.083149751234368, 0.083149751234368, 0.083149751234368,
0.083149751234368, 0.083149751234368, 0.083149751234368,
0.083149751234368, 0.083149751234368, 0.083149751234368,
0.083149751234368, 0.083149751234368, 0.083149751234368,
0.083149751234368, 0.083149751234368, 0.083149751234368,
0.083149751234368, 0.083149751234368, 0.083149751234368,
0.083149751234368, 0.083149751234368, 0.083149751234368),
remainder_l2 = c(5.1943178943932, 5.1943178943932, 5.1943178943932,
5.1943178943932, 5.1943178943932, 5.1943178943932, 5.1943178943932,
5.1943178943932, 5.1943178943932, 5.1943178943932, 5.1943178943932,
5.1943178943932, 5.1943178943932, 5.1943178943932, 5.1943178943932,
5.1943178943932, 5.1943178943932, 5.1943178943932, 5.1943178943932,
5.1943178943932, 5.1943178943932, 5.1943178943932, 5.1943178943932,
5.1943178943932, 5.1943178943932, 5.1943178943932, 5.1943178943932,
5.1943178943932, 5.1943178943932, 5.1943178943932, 5.1943178943932,
5.1943178943932, 5.1943178943932, 5.1943178943932, 5.1943178943932,
5.1943178943932, 5.1943178943932, 5.1943178943932, 5.1943178943932,
5.1943178943932, 5.1943178943932, 5.1943178943932, 5.1943178943932,
5.1943178943932, 5.1943178943932, 5.1943178943932, 5.1943178943932,
5.1943178943932, 2.46026817462866, 2.46026817462866, 2.46026817462866,
2.46026817462866, 2.46026817462866, 2.46026817462866, 2.46026817462866,
2.46026817462866, 2.46026817462866, 2.46026817462866, 2.46026817462866,
2.46026817462866, 2.46026817462866, 2.46026817462866, 2.46026817462866,
2.46026817462866, 2.46026817462866, 2.46026817462866, 2.46026817462866,
2.46026817462866, 2.46026817462866, 2.46026817462866, 2.46026817462866,
2.46026817462866, 2.46026817462866, 2.46026817462866, 2.46026817462866,
2.46026817462866, 2.46026817462866, 2.46026817462866, 2.46026817462866,
2.46026817462866, 2.46026817462866, 2.46026817462866, 2.46026817462866,
2.46026817462866, 2.46026817462866, 2.46026817462866, 2.46026817462866,
2.46026817462866, 2.46026817462866, 2.46026817462866, 2.46026817462866,
2.46026817462866, 2.46026817462866, 2.46026817462866, 2.46026817462866,
2.46026817462866, 0.0835437336851758, 0.0835437336851758,
0.0835437336851758, 0.0835437336851758, 0.0835437336851758,
0.0835437336851758, 0.0835437336851758, 0.0835437336851758,
0.0835437336851758, 0.0835437336851758, 0.0835437336851758,
0.0835437336851758, 0.0835437336851758, 0.0835437336851758,
0.0835437336851758, 0.0835437336851758, 0.0835437336851758,
0.0835437336851758, 0.0835437336851758, 0.0835437336851758,
0.0835437336851758, 0.0835437336851758, 0.0835437336851758,
0.0835437336851758, 0.0835437336851758, 0.0835437336851758,
0.0835437336851758, 0.0835437336851758, 0.0835437336851758,
0.0835437336851758, 0.0835437336851758, 0.0835437336851758,
0.0835437336851758, 0.0835437336851758, 0.0835437336851758,
0.0835437336851758, 0.0835437336851758, 0.0835437336851758,
0.0835437336851758, 0.0835437336851758, 0.0835437336851758,
0.0835437336851758, 0.0835437336851758, 0.0835437336851758,
0.0835437336851758, 0.0835437336851758, 0.0835437336851758,
0.0835437336851758), anomaly = c("No", "No", "No", "No",
"No", "No", "No", "No", "No", "No", "No", "No", "No", "No",
"No", "No", "No", "No", "No", "No", "No", "No", "No", "No",
"No", "No", "No", "No", "No", "No", "No", "Yes", "No", "No",
"No", "No", "No", "No", "No", "No", "No", "No", "No", "No",
"No", "Yes", "No", "Yes", "No", "No", "No", "No", "No", "No",
"No", "No", "No", "No", "No", "No", "No", "No", "No", "Yes",
"No", "No", "No", "No", "No", "No", "No", "No", "No", "No",
"No", "No", "No", "No", "No", "No", "No", "No", "No", "No",
"No", "No", "Yes", "No", "No", "No", "No", "No", "No", "No",
"No", "No", "No", "No", "No", "No", "Yes", "No", "No", "No",
"Yes", "Yes", "No", "No", "No", "No", "No", "No", "Yes",
"No", "No", "No", "Yes", "Yes", "No", "No", "No", "No", "No",
"No", "No", "No", "No", "No", "No", "No", "No", "No", "No",
"No", "No", "No", "No", "No", "No", "No", "No", "No", "No",
"Yes"), recomposed_l1 = c(1.03279498557236, 2.99704705072119,
1.28766449261323, 1.07048621327099, -1.85006424170765, -1.41717470306141,
-0.930572598669758, -4.86928244079629, -1.26111021884538,
5.85100241990752, -1.9198010883097, 3.07808862802963, 4.83279848557236,
6.79705055072119, 5.08766799261323, 4.87048971327099, 1.94993925829235,
2.38282879693859, 2.86943090133024, -1.06927894079629, 2.53889328115462,
9.65100591990752, 1.8802024116903, 6.87809212802963, -0.667201514427642,
1.29705055072119, -0.412332007386775, -0.62951028672901,
-3.55006074170765, -3.11717120306141, -2.63056909866976,
-6.56927894079629, -2.96110671884538, 4.15100591990752, -3.6197975883097,
1.37809212802963, 0.332798485572358, 2.29705055072119, 0.587667992613225,
0.37048971327099, -2.55006074170765, -2.11717120306141, -1.63056909866976,
-5.56927894079629, -1.96110671884538, 5.15100591990752, -2.6197975883097,
2.37809212802963, -0.793558487078905, -1.79351577492431,
-1.79352339259331, -1.79351982995394, -1.79362191622586,
-1.79359890529404, -1.79364840823203, -1.79360366045584,
-1.79366268507099, -0.793662374733311, -1.79356453878897,
-1.79367565818392, -1.29355848707891, -2.29351577492431,
-2.29352339259331, -2.29351982995394, -2.29362191622586,
-2.29359890529404, -2.29364840823203, -2.29360366045584,
-2.29366268507099, -1.29366237473331, -2.29356453878897,
-2.29367565818392, -1.29355848707891, -2.29351577492431,
-2.29352339259331, -2.29351982995394, -2.29362191622586,
-2.29359890529404, -2.29364840823203, -2.29360366045584,
-2.29366268507099, -1.29366237473331, -2.29356453878897,
-2.29367565818392, -0.793558487078905, -1.79351577492431,
-1.79352339259331, -1.79351982995394, -1.79362191622586,
-1.79359890529404, -1.79364840823203, -1.79360366045584,
-1.79366268507099, -0.793662374733311, -1.79356453878897,
-1.79367565818392, -0.000229368513749911, -0.000236519112473146,
-0.000240458935150178, -0.000227905977396026, -0.00018729669798534,
-0.000201824833781672, -0.00017878892878076, -0.000164229575336461,
-0.000117325373405613, 0.999898483175405, -0.000125592775548883,
-0.000192157617026067, 0.49977063148625, 0.499763480887527,
0.49975954106485, 0.499772094022604, 0.499812703302015, 0.499798175166218,
0.499821211071219, 0.499835770424663, 0.499882674626594,
1.4998984831754, 0.499874407224451, 0.499807842382974, -0.000229368513749911,
-0.000236519112473146, -0.000240458935150178, -0.000227905977396026,
-0.00018729669798534, -0.000201824833781672, -0.00017878892878076,
-0.000164229575336461, -0.000117325373405613, 0.999898483175405,
-0.000125592775548883, -0.000192157617026067, -0.000229368513749911,
-0.000236519112473146, -0.000240458935150178, -0.000227905977396026,
-0.00018729669798534, -0.000201824833781672, -0.00017878892878076,
-0.000164229575336461, -0.000117325373405613, 0.999898483175405,
-0.000125592775548883, -0.000192157617026067), recomposed_l2 = c(11.1713528671649,
13.1356049323138, 11.4262223742058, 11.2090440948636, 8.28849363988493,
8.72138317853117, 9.20798528292282, 5.26927544079629, 8.8774476627472,
15.9895603015001, 8.21875679328289, 13.2166465096222, 14.9713563671649,
16.9356084323138, 15.2262258742058, 15.0090475948636, 12.0884971398849,
12.5213866785312, 13.0079887829228, 9.06927894079629, 12.6774511627472,
19.7895638015001, 12.0187602932829, 17.0166500096222, 9.47135636716494,
11.4356084323138, 9.72622587420581, 9.50904759486357, 6.58849713988493,
7.02138667853117, 7.50798878292282, 3.56927894079629, 7.1774511627472,
14.2895638015001, 6.51876029328288, 11.5166500096222, 10.4713563671649,
12.4356084323138, 10.7262258742058, 10.5090475948636, 7.58849713988493,
8.02138667853117, 8.50798878292282, 4.56927894079629, 8.1774511627472,
15.2895638015001, 7.51876029328288, 12.5166500096222, 3.79363932350917,
2.79368203566376, 2.79367441799476, 2.79367798063413, 2.79357589436222,
2.79359890529404, 2.79354940235605, 2.79359415013223, 2.79353512551708,
3.79353543585476, 2.79363327179911, 2.79352215240416, 3.29363932350917,
2.29368203566376, 2.29367441799476, 2.29367798063413, 2.29357589436222,
2.29359890529404, 2.29354940235605, 2.29359415013223, 2.29353512551708,
3.29353543585476, 2.29363327179911, 2.29352215240416, 3.29363932350917,
2.29368203566376, 2.29367441799476, 2.29367798063413, 2.29357589436222,
2.29359890529404, 2.29354940235605, 2.29359415013223, 2.29353512551708,
3.29353543585476, 2.29363327179911, 2.29352215240416, 3.79363932350917,
2.79368203566376, 2.79367441799476, 2.79367798063413, 2.79357589436222,
2.79359890529404, 2.79354940235605, 2.79359415013223, 2.79353512551708,
3.79353543585476, 2.79363327179911, 2.79352215240416, 0.000164613937057828,
0.000157463338334593, 0.000153523515657561, 0.000166076473411714,
0.0002066857528224, 0.000192157617026067, 0.00021519352202698,
0.000229752875471279, 0.000276657077402126, 1.00029246562621,
0.000268389675258857, 0.000201824833781672, 0.500164613937058,
0.500157463338335, 0.500153523515658, 0.500166076473412,
0.500206685752822, 0.500192157617026, 0.500215193522027,
0.500229752875471, 0.500276657077402, 1.50029246562621, 0.500268389675259,
0.500201824833782, 0.000164613937057828, 0.000157463338334593,
0.000153523515657561, 0.000166076473411714, 0.0002066857528224,
0.000192157617026067, 0.00021519352202698, 0.000229752875471279,
0.000276657077402126, 1.00029246562621, 0.000268389675258857,
0.000201824833781672, 0.000164613937057828, 0.000157463338334593,
0.000153523515657561, 0.000166076473411714, 0.0002066857528224,
0.000192157617026067, 0.00021519352202698, 0.000229752875471279,
0.000276657077402126, 1.00029246562621, 0.000268389675258857,
0.000201824833781672), observed_cleaned = c(5.399993, 9,
10, 9, 5, 1, 3, 1, 3, 13, 3, 9, 10, 10, 9, 9, 2, 7, 5, 4,
10, 12, 8, 12, 4, 11, 4, 3, 2, 2, 3, -1.62503895359691, 3,
5, 1, 4, 6, 3, 4, 5, 5, 6, 8, 0, 2, 10.0952459071069, 4,
7.32233211522901, 2, 0, 0, 0, 2, 0, 1, 0, 2, 1, 0, 1, 1,
0, 0, -0.166590193994525, 0, 0, 0, 0, 0, 3, 0, 0, 1, 0, 0,
0, 0, 0, 0, 2, 0, 1, 1, 0, 0, 1, 0.333406243366103, 1, 0,
0, 0, 0, 1, 1, 2, 0, 0, 0, 0, 0, -0.0833370479323534, 0,
0, 1, -0.0832670766077737, 0.916748731941037, 0, 0, 0, 0,
0, 0, 0.416662952067647, 0, 1, 0, 0.416732923392226, 1.41674873194104,
1, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 1, 0, -0.0833419088513941)), class = c("tbl_df",
"tbl", "data.frame"), row.names = c(NA, -144L))
test.df$mean.with.no.anomalies<- test.df %>%
group_by(Product.ID,Location.ID,Month) %>%
case_when(anomaly="No",mean(ADJUSTEDSALESUNITS))