test_that("calc_window", {
expect_equal(
calc_epaker_weights(seq(0, 1, 0.1), c(0.2, 0.4), c(0.2, 0.4)),
structure(c(0, 0.5625, 0.75, 0.5625, 0, 0, 0, 0, 0, 0, 0, 0,
0.328125, 0.5625, 0.703125, 0.75, 0.703125, 0.5625, 0.328125,
0, 0, 0), .Dim = c(11L, 2L))
)
expect_equal(
calc_r_window(c(4.94, 4.92, 4.91, 4.92, 4.95, 4.95, 4.96, 4.98, 4.96, 4.98,
4.99, 4.99, 5.01, 5, 5.01, 5, 5.01, 5, 5.01, 5, 4.99, 5, 5.01,
5.02, 5.01, 5.02, 5.03, 5.02, 5.04, 5.03, 5.02, 5.03, 5.04, 5.05,
5.04, 5.05, 5.05, 5.05, 4.99, 5.01, 5, 4.98, 4.97, 4.99, 4.97,
4.95, 4.96, 4.96, 4.94, 4.92, 4.91, 4.9, 4.93, 4.92, 4.91, 4.92,
4.94, 4.93, 4.93, 4.92, 4.91, 4.9, 4.91, 4.91, 4.92, 4.9, 4.91,
4.89, 4.89, 4.9, 4.89, 4.88, 4.88, 4.87, 4.86, 4.85, 4.85, 4.85,
4.84, 4.83, 4.82, 4.81, 4.79, 4.76, 4.77, 4.76, 4.76, 4.77, 4.76,
4.74, 4.73, 4.73, 4.73, 4.7, 4.62, 4.68, 4.7, 4.76, 4.79, 4.77,
4.77, 4.75, 4.76, 4.71, 4.6, 4.66, 4.68, 4.7, 4.67, 4.67, 4.64,
4.6, 4.59, 4.53, 4.52, 4.43, 4.51, 4.52, 4.61, 4.57, 4.59, 4.69,
4.69, 4.64, 4.64, 4.68, 4.81, 4.81, 4.81, 4.81, 4.83, 4.81, 4.81,
4.83, 4.83, 4.84, 4.82, 4.82, 4.84, 4.83, 4.88, 4.88, 4.85, 4.78,
4.72, 4.82, 4.82, 4.75, 4.75, 4.72, 4.74, 4.8, 4.81, 4.67, 4.44,
4.61, 4.51, 4.1, 3.69, 3.65, 3.08, 3.51, 3.58, 3.79, 4.13, 4.5,
4.28, 3.88, 3.74, 3.91, 4.35, 4.24, 4.18, 3.96, 3.86, 4, 3.93,
3.97, 3.9, 4.05, 3.91, 3.83, 3.69, 3.64, 3.76, 3.7, 3.64, 3.62,
3.72, 3.83, 3.86, 3.86, 3.85, 3.89, 3.96, 3.95, 4.01, 4.09, 4.19,
4.14, 3.91, 3.66, 3.75, 3.9, 3.88, 3.75, 3.84, 3.86, 3.91, 3.86,
3.84, 3.71, 3.52, 3.62, 3.66, 3.4, 3.3, 3.19, 3.41, 3.33, 3.22,
3.32, 3.32, 3.17, 3.02, 3.15, 3.06, 3.08, 2.98, 2.92, 3.08, 2.99,
3, 3, 3.02, 3.04, 2.98, 2.87, 2.81, 2.8, 2.81, 3.01, 2.98, 2.85,
2.85, 2.92, 3.26, 3.24, 3.09, 3.1, 3.29), 4.03, 1.285),
structure(c(0.373870157004648, 0.390221653620797, 0.39826113945707,
0.390221653620797, 0.365558146224773, 0.365558146224773, 0.35715529379703,
0.340077063997941, 0.35715529379703, 0.340077063997941, 0.331401686626595,
0.331401686626595, 0.313778406940302, 0.322635467607383, 0.313778406940302,
0.322635467607383, 0.313778406940302, 0.322635467607383, 0.313778406940302,
0.322635467607383, 0.331401686626595, 0.322635467607383, 0.313778406940302,
0.304830504625355, 0.313778406940302, 0.304830504625355, 0.295791760662538,
0.304830504625355, 0.286662175051856, 0.295791760662538, 0.304830504625355,
0.295791760662538, 0.286662175051856, 0.277441747793305, 0.286662175051856,
0.277441747793305, 0.277441747793305, 0.277441747793305, 0.331401686626595,
0.313778406940302, 0.322635467607383, 0.340077063997941, 0.348661599721419,
0.331401686626595, 0.348661599721419, 0.365558146224773, 0.35715529379703,
0.35715529379703, 0.373870157004648, 0.390221653620797, 0.39826113945707,
0.406209783645475, 0.382091326136656, 0.390221653620797, 0.39826113945707,
0.390221653620797, 0.373870157004648, 0.382091326136656, 0.382091326136656,
0.390221653620797, 0.39826113945707, 0.406209783645475, 0.39826113945707,
0.39826113945707, 0.390221653620797, 0.406209783645475, 0.39826113945707,
0.414067586186014, 0.414067586186014, 0.406209783645475, 0.414067586186014,
0.421834547078684, 0.421834547078684, 0.429510666323487, 0.437095943920423,
0.444590379869491, 0.444590379869491, 0.444590379869491, 0.451993974170692,
0.459306726824025, 0.46652863782949, 0.473659707187089, 0.487649320958682,
0.507952429257067, 0.501275568138806, 0.507952429257067, 0.507952429257067,
0.501275568138806, 0.507952429257067, 0.521033626549986, 0.527437962724644,
0.527437962724644, 0.527437962724644, 0.546105921361413, 0.59189011188663,
0.558097018879923, 0.546105921361413, 0.507952429257067, 0.487649320958682,
0.501275568138806, 0.501275568138806, 0.51453844872746, 0.507952429257067,
0.539974110130358, 0.602427743039259, 0.569724749806962, 0.558097018879923,
0.546105921361413, 0.563956305167376, 0.563956305167376, 0.580989114142531,
0.602427743039259, 0.607560296143772, 0.636447940165635, 0.640944601735076,
0.677326681706006, 0.645350421656649, 0.640944601735076, 0.597204348286878,
0.617552877409196, 0.607560296143772, 0.552146890944602, 0.552146890944602,
0.580989114142531, 0.580989114142531, 0.558097018879923, 0.473659707187089,
0.473659707187089, 0.473659707187089, 0.473659707187089, 0.459306726824025,
0.473659707187089, 0.473659707187089, 0.459306726824025, 0.459306726824025,
0.451993974170692, 0.46652863782949, 0.46652863782949, 0.451993974170692,
0.459306726824025, 0.421834547078684, 0.421834547078684, 0.444590379869491,
0.494507865372678, 0.533751457251435, 0.46652863782949, 0.46652863782949,
0.51453844872746, 0.51453844872746, 0.533751457251435, 0.521033626549986,
0.480699934896819, 0.473659707187089, 0.563956305167376, 0.673647594967373,
0.597204348286878, 0.645350421656649, 0.747774379627246, 0.697493527532589,
0.68441233023967, 0.340077063997941, 0.62718209208315, 0.658022831534164,
0.723837605414162, 0.745457917606625, 0.649665399930355, 0.721611985041409,
0.739780314614907, 0.711801087071719, 0.74345940135354, 0.703489076291844,
0.729969416645218, 0.739780314614907, 0.747774379627246, 0.736873381883147,
0.749591212584596, 0.745457917606625, 0.748364850338385, 0.742323880755197,
0.749818316704265, 0.74345940135354, 0.731831670426502, 0.697493527532589,
0.680914926796772, 0.716888219352299, 0.70053672273615, 0.680914926796772,
0.673647594967373, 0.70635058819967, 0.731831670426502, 0.736873381883147,
0.736873381883147, 0.735283653045466, 0.741097518508986, 0.747774379627246,
0.74709306726824, 0.749818316704265, 0.748364850338385, 0.738372269072961,
0.744504080304017, 0.74345940135354, 0.687818892034701, 0.714390074035943,
0.742323880755197, 0.739780314614907, 0.714390074035943, 0.733603082559918,
0.736873381883147, 0.74345940135354, 0.736873381883147, 0.733603082559918,
0.703489076291844, 0.631860436948326, 0.673647594967373, 0.687818892034701,
0.569724749806961, 0.507952429257067, 0.429510666323487, 0.57540235279868,
0.527437962724644, 0.451993974170691, 0.521033626549985, 0.521033626549985,
0.414067586186013, 0.286662175051855, 0.398261139457069, 0.322635467607382,
0.340077063997941, 0.249235416130448, 0.190370028312313, 0.340077063997941,
0.258728368332601, 0.268130478886887, 0.268130478886887, 0.286662175051855,
0.304830504625354, 0.249235416130448, 0.138817393147512, 0.0739564565701219,
0.0628283547063539, 0.0739564565701219, 0.277441747793305, 0.249235416130448,
0.117560447546518, 0.117560447546518, 0.190370028312313, 0.480699934896819,
0.46652863782949, 0.348661599721418, 0.357155293797029, 0.501275568138806
), .Dim = c(251L, 1L))
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.