tests/testthat/test-fuserouting.sim.R
In cvitolo/fuse: Framework for Understanding Structural Errors
context("test-fuserouting.sim")
test_that("multiplication works", {
y <- c(0, 0, 0, 0, 0.001, 0, 0, 0, 0, 0, 0.001, 0, 0, 0, 0, 0, 0.001,
0, 0, 0.001, 0, 0.001, 0, 0.001, 0, 0.002, 0, 0.046, 0.005, 0,
0.034, 0.312, 0.001, 0, 0, 0, 0, 0, 0.002, 0, 0.002, 0.002, 0.109,
0.01, 0.003, 0.002, 0.003, 0.053, 0.003, 0.033, 0.005, 0.009,
0.006, 0.085, 0.001, 0, 0, 0.001, 0.003, 0.037, 0.031, 0.006,
0, 0.01, 0.007, 0.008, 0.003, 0.006, 0.001, 0.006, 0.005, 0,
0.001, 0.002, 0.008, 0.009, 0.025, 0.008, 0.001, 0, 0, 0, 0,
0.007, 0.012, 0.019, 0.008, 0.014, 0, 0.006, 0.01, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.003, 0.018, 0.006, 0.001,
0.001, 0.002, 0.019, 0.006, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0.01, 0, 0.027, 0.001, 0.007, 0, 0.002,
0, 0.001, 0, 0.018, 0.001, 0.013, 0.005, 0.011, 0.004, 0, 0.002,
0.003, 0.009, 0.01, 0.006, 0.001, 0.001, 0.002, 0, 0, 0.001,
0, 0, 0, 0, 0, 0.006, 0.002, 0.001, 0.001, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0.001, 0, 0, 0.001, 0, 0, 0, 0, 0.021, 0,
0.003, 0.01, 0.002, 0.023, 0.018, 0.003, 0, 0.007, 0, 0, 0.002,
0.001, 0, 0, 0, 0, 0, 0.001, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0.012, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.001, 0, 0.005, 0.001,
0.004, 0.002, 0.001, 0.001, 0, 0, 0.013, 0, 0.005, 0.001, 0,
0.011, 0.026, 0, 0, 0.031, 0.001, 0.006, 0.001, 0, 0, 0, 0.006,
0, 0, 0, 0, 0, 0.022, 0, 0.017, 0.007, 0.006, 0.003, 0, 0.01,
0.002, 0.001, 0.011, 0.002, 0.017, 0.005, 0.006, 0, 0, 0, 0,
0, 0, 0, 0.001, 0.009, 0.003, 0.002, 0.004, 0, 0, 0, 0, 0.016,
0, 0.006, 0.002, 0, 0, 0, 0.001, 0, 0, 0, 0, 0, 0.001, 0.001,
0.002, 0.003, 0.008, 0.03, 0, 0, 0.01, 0.026, 0, 0, 0, 0, 0.002,
0.013, 0.001, 0.002, 0.011, 0.005, 0, 0.001, 0.003, 0, 0, 0.001,
0.002, 0.018, 0, 0.003, 0.009, 0.002, 0.003, 0.001, 0, 0, 0,
0.003, 0.001, 0.001, 0, 0, 0, 0, 0, 0.074, 0.041, 0.002, 0.002,
0, 0, 0, 0, 0, 0.004, 0.012, 0.005, 0.001, 0.001, 0.008, 0.02,
0.027, 0.006, 0.036, 0.002, 0, 0.018, 0.041, 0.01, 0, 0, 0, 0,
0, 0.003, 0.003, 0.001, 0, 0, 0, 0, 0.025, 0.023, 0, 0, 0, 0,
0, 0, 0, 0, 0.011, 0.02, 0.001, 0.016, 0.022, 0.067, 0.149, 0.048,
0.004, 0, 0.022, 0.015, 0.147, 0.014, 0.024, 0.015, 0.017, 0.002,
0.036, 0.035, 0.003, 0.003, 0, 0, 0, 0.001, 0.001, 0.003, 0.001,
0, 0.004, 0, 0.037, 0, 0, 0.104, 0.013, 0.001, 0, 0.014, 0.088,
0.001, 0, 0, 0.001, 0.007, 0.021, 0.015, 0.003, 0.002, 0, 0.006,
0.007, 0.001, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.001, 0, 0.023, 0.015,
0.023, 0, 0.01, 0.002, 0.051, 0.004, 0.079, 0.004, 0.012, 0.001,
0.163, 0.032, 0.051, 0.022, 0.01, 0.003, 0.015, 0.042, 0.114,
0.088, 0.002, 0, 0, 0, 0.002, 0, 0, 0, 0.023, 0.003, 0.004, 0,
0, 0, 0.001, 0.001, 0.015, 0.079, 0.006, 0.009, 0.087, 0.075,
0.013, 0.003, 0.086, 0.003, 0.043, 0.059, 0.011, 0.002, 0.003,
0.031, 0.007, 0, 0.001, 0.001, 0.096, 0, 0.014, 0.012, 0.085,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.046, 0.008, 0.091, 0.035,
0.028, 0.101, 0.067, 0.097, 0.122, 0.03, 0.003, 0, 0.064, 0.003,
0, 0.001, 0.041, 0.001, 0.028, 0, 0, 0, 0, 0, 0, 0, 0, 0.006,
0.034, 0.001, 0.001, 0.003, 0, 0.128, 0.077, 0.023, 0.001, 0.001,
0.001, 0, 0, 0.002, 0.136, 0.022, 0.012, 0.152, 0.041, 0.01,
0.011, 0, 0, 0, 0, 0, 0, 0, 0.089, 0.001, 0.113, 0.233, 0.147,
0.027, 0.251, 0.025, 0.049, 0.001, 0, 0, 0.014, 0.005, 0.007,
0.001, 0, 0, 0, 0, 0, 0, 0.005, 0, 0, 0, 0, 0, 0, 0.007, 0.033,
0, 0.001, 0, 0, 0.02, 0.001, 0.08, 0.006, 0.204, 0.089, 0.005,
0.005, 0.004, 0.102, 0.059, 0.012, 0.002, 0.021, 0.018, 0.004,
0, 0.002, 0, 0, 0.07, 0.022, 0.007, 0.076, 0.032, 0.017, 0.103,
0.004, 0.002, 0.005, 0.05, 0.154, 0.099, 0.037, 0.08, 0.001,
0.021, 0.072, 0.025, 0.048, 0.163, 0.279, 0.419, 0.182, 0.029,
0.176, 0.061, 0.004, 0.21, 0.008, 0.005, 0.011, 0.005, 0.116,
0.073, 0.001, 0.719, 0.006, 0.126, 0.051, 0.107, 0.57, 0.008,
0.006, 0.002, 0.401, 0.216, 0.033, 0.094, 0.456, 0.332, 0.102,
0.004, 0.004, 0.002, 0.001, 0.001, 0.002, 0.001, 0.004, 0.003,
0.062, 0.068, 0.022, 0.188, 1.18, 1.188, 0.132, 0.004, 0.003,
0.001, 0.001, 0.008, 0.108, 0.047, 0.006, 0.096, 0.199, 0.065,
0.004, 0.005, 0.004, 0.003, 0.013, 0.003, 0.004, 0.005, 0.005,
0.003, 0.143, 0.013, 0.007, 0.001, 0.003, 0.003, 0.015, 0.012,
0.02, 0.001, 0.041, 0.103, 0.005, 0.061, 0.011, 0.006, 0.024,
0.001, 0.001, 0.001, 0.001, 0.052, 0.006, 1.247, 0.099, 0.017,
0.427, 0.002, 0.214, 0.34, 0.401, 0.998, 0.543, 0.11, 0.005,
0.067, 0.596, 1.533, 0.56, 1.624, 1.672, 0.027, 0.235, 0.783,
1.183, 1.243, 0.628, 0.958, 0.035, 1.845, 0.029, 0.005, 0.042,
0.42, 0.013, 0.005, 0.008, 0.02, 0.005, 0.015, 0.042, 0.55, 0.146,
0.219, 0.426, 0.463, 0.433, 0.008, 0.023, 0.005, 1.164, 0.352,
0.257, 0.068, 0.203, 0.482, 0.013, 0.006, 0.006, 0.006, 0.006,
0.081, 0.126, 0.121, 0.134, 0.114, 0.013, 0.006, 0.006, 0.006,
0.006, 0.006, 0.006, 0.011, 0.006, 0.006, 0.006, 0.011, 0.006,
0.006, 0.144, 0.011, 0.006, 1.772, 0.339, 0.262, 0.568, 0.781,
0.011, 0.006, 0.006, 0.006, 0.944, 3.209, 1.27, 0.096, 1.561,
0.642, 0.008, 0.874, 0.378, 0.11, 0.439, 0.008, 0.006, 0.154,
0.044, 0.223, 0.758, 0.694, 0.006, 0.008, 0.006, 0.006, 0.006,
0.006, 0.006, 0.006, 0.006, 0.006, 0.006, 0.006, 0.006, 0.006,
0.006, 0.154, 0.34, 0.432, 0.641, 0.207, 2.076, 1.237, 0.37,
0.093, 0.258, 0.182, 0.006, 0.029, 0.115, 0.447, 1.005, 0.824,
0.452, 0.136, 0.345, 2.218, 0.054, 0.281, 0.067, 0.008, 0.572,
0.026, 0.587, 0.092, 0.233, 0.006, 0.006, 0.006, 0.006, 0.447,
0.011, 0.006, 0.785, 0.633, 0.419, 0.296, 0.342, 0.245, 0.006,
0.011, 0.006, 0.006, 0.006, 0.569, 0.808, 0.019, 1.756, 0.087,
0.006, 0.635, 0.26, 0.564, 0.077, 0.008, 0.006, 0.006, 0.006,
0.006, 0.006, 0.006, 0.006, 0.006, 0.006, 0.024, 0.398, 0.008,
0.008, 0.006, 0.006, 0.006, 0.006, 0.019, 0.752, 0.243, 0.856,
0.036, 0.013, 0.202, 0.291, 0.991, 0.217, 1.062, 1.563, 0.171,
0.578, 0.746, 0.629, 0.125, 0.382, 0.011, 0.006, 0.006, 0.006,
0.929, 0.464, 0.344, 0.072, 1.161, 0.647, 0.039, 0.08, 0.006,
0.006, 0.006, 0.006, 0.006, 0.006, 0.016, 0.013, 0.006, 0.176,
0.008, 0.822, 0.024, 0.008, 0.011, 0.171, 0.095, 1.058, 0.812,
1.659, 1.008, 0.791, 0.024, 0.413, 0.006, 1.007, 0.898, 0.25,
0.024, 0.008, 0.008, 0.006, 0.006, 0.006, 0.006, 0.006, 0.006,
0.006, 0.006, 0.006, 0.126, 0.019, 0.013, 0.062, 0.082, 0.006,
0.639, 0.185, 0.013, 0.892, 0.585, 0.672, 0.962, 0.476, 0.034,
0.108, 0.095, 0.098, 0.646, 0.787, 0.32, 0.943, 2.637, 0.027,
0.042, 0.436, 0.068, 0.305, 0.669, 0.123, 1.612, 0.221, 0.019,
0.013, 0.036, 0.125, 0.046, 1.174, 0.488, 0.34, 1.587, 3.204,
1.093, 0.112, 0.012, 0.016, 0.012, 0.053, 0.02, 0.697, 2.085,
0.051, 0.036, 0.013, 0.772, 1.776, 3.127, 4.233, 0.094, 1.149,
0.331, 0.528, 1.776)
myDELTIM <- 1
myMID <- 60
x <- round(fuserouting.sim(U = y,
mid = myMID,
deltim = myDELTIM,
timedelay = 3), 3)
w <- c(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, 0.001, 0.001, 0.006, 0.012, 0.012, 0.013, 0.048,
0.088, 0.081, 0.058, 0.037, 0.021, 0.012, 0.007, 0.004, 0.002,
0.002, 0.013, 0.029, 0.029, 0.022, 0.015, 0.016, 0.019, 0.02,
0.02, 0.017, 0.014, 0.019, 0.028, 0.024, 0.017, 0.011, 0.007,
0.008, 0.015, 0.018, 0.016, 0.012, 0.01, 0.009, 0.008, 0.007,
0.006, 0.005, 0.005, 0.004, 0.003, 0.002, 0.003, 0.004, 0.008,
0.011, 0.011, 0.008, 0.005, 0.003, 0.002, 0.002, 0.004, 0.007,
0.01, 0.011, 0.01, 0.008, 0.008, 0.007, 0.005, 0.003, 0.002,
0.001, 0.001, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.003, 0.006, 0.006,
0.005, 0.004, 0.005, 0.007, 0.007, 0.005, 0.003, 0.002, 0.001,
0.001, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.001, 0.002,
0.005, 0.008, 0.008, 0.007, 0.005, 0.004, 0.002, 0.002, 0.003,
0.005, 0.006, 0.007, 0.008, 0.008, 0.007, 0.005, 0.004, 0.004,
0.005, 0.006, 0.006, 0.005, 0.004, 0.003, 0.002, 0.001, 0.001,
0.001, 0, 0, 0, 0.001, 0.002, 0.002, 0.002, 0.001, 0.001, 0.001,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.002,
0.005, 0.005, 0.005, 0.006, 0.007, 0.011, 0.012, 0.01, 0.008,
0.006, 0.004, 0.003, 0.002, 0.002, 0.001, 0.001, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.001, 0.003, 0.003, 0.002,
0.001, 0.001, 0, 0, 0, 0, 0, 0, 0.001, 0.002, 0.002, 0.002, 0.002,
0.002, 0.001, 0.001, 0.002, 0.004, 0.004, 0.004, 0.003, 0.003,
0.007, 0.01, 0.008, 0.009, 0.011, 0.01, 0.008, 0.006, 0.004,
0.002, 0.002, 0.002, 0.002, 0.001, 0.001, 0, 0.003, 0.006, 0.007,
0.009, 0.009, 0.008, 0.006, 0.005, 0.005, 0.004, 0.004, 0.005,
0.006, 0.008, 0.008, 0.007, 0.005, 0.003, 0.002, 0.001, 0.001,
0, 0, 0.001, 0.003, 0.003, 0.003, 0.003, 0.002, 0.001, 0.001,
0.002, 0.004, 0.005, 0.004, 0.004, 0.003, 0.002, 0.001, 0.001,
0.001, 0, 0, 0, 0, 0, 0.001, 0.001, 0.002, 0.006, 0.01, 0.009,
0.007, 0.009, 0.011, 0.009, 0.006, 0.004, 0.002, 0.003, 0.004,
0.004, 0.004, 0.005, 0.005, 0.004, 0.003, 0.002, 0.002, 0.001,
0.001, 0.003, 0.005, 0.005, 0.005, 0.005, 0.005, 0.004, 0.003,
0.002, 0.001, 0.001, 0.001, 0.001, 0.001, 0.001, 0, 0, 0, 0.008,
0.023, 0.027, 0.023, 0.016, 0.01, 0.006, 0.003, 0.002, 0.001,
0.003, 0.005, 0.005, 0.004, 0.004, 0.006, 0.011, 0.014, 0.016,
0.018, 0.014, 0.012, 0.015, 0.019, 0.017, 0.012, 0.008, 0.005,
0.003, 0.002, 0.002, 0.002, 0.002, 0.001, 0.001, 0, 0.003, 0.009,
0.012, 0.01, 0.007, 0.004, 0.002, 0.001, 0.001, 0, 0.001, 0.005,
0.008, 0.008, 0.011, 0.019, 0.042, 0.064, 0.062, 0.047, 0.033,
0.025, 0.035, 0.05, 0.048, 0.04, 0.032, 0.024, 0.02, 0.023, 0.023,
0.019, 0.013, 0.008, 0.005, 0.003, 0.002, 0.002, 0.002, 0.001,
0.001, 0.002, 0.005, 0.01, 0.009, 0.018, 0.031, 0.03, 0.022,
0.016, 0.021, 0.03, 0.026, 0.018, 0.011, 0.008, 0.008, 0.01,
0.011, 0.009, 0.007, 0.005, 0.005, 0.005, 0.004, 0.002, 0.002,
0.001, 0, 0, 0, 0, 0, 0, 0, 0.003, 0.007, 0.012, 0.013, 0.011,
0.01, 0.013, 0.017, 0.024, 0.031, 0.028, 0.021, 0.032, 0.052,
0.056, 0.053, 0.043, 0.031, 0.022, 0.021, 0.033, 0.054, 0.059,
0.047, 0.031, 0.019, 0.011, 0.007, 0.004, 0.002, 0.004, 0.006,
0.007, 0.006, 0.004, 0.002, 0.002, 0.001, 0.003, 0.013, 0.024,
0.024, 0.028, 0.042, 0.048, 0.04, 0.037, 0.039, 0.036, 0.038,
0.039, 0.031, 0.022, 0.018, 0.017, 0.014, 0.01, 0.006, 0.014,
0.026, 0.025, 0.022, 0.026, 0.032, 0.027, 0.018, 0.011, 0.007,
0.004, 0.002, 0.001, 0.001, 0, 0, 0, 0, 0.005, 0.012, 0.022,
0.036, 0.039, 0.045, 0.056, 0.066, 0.079, 0.083, 0.069, 0.048,
0.037, 0.034, 0.025, 0.017, 0.015, 0.016, 0.016, 0.016, 0.012,
0.008, 0.005, 0.003, 0.001, 0.001, 0, 0.001, 0.005, 0.01, 0.009,
0.007, 0.005, 0.017, 0.042, 0.052, 0.046, 0.033, 0.021, 0.013,
0.007, 0.004, 0.017, 0.037, 0.039, 0.048, 0.063, 0.06, 0.046,
0.033, 0.021, 0.012, 0.007, 0.004, 0.002, 0.001, 0.01, 0.022,
0.033, 0.068, 0.109, 0.118, 0.123, 0.129, 0.11, 0.084, 0.056,
0.034, 0.021, 0.015, 0.011, 0.008, 0.006, 0.004, 0.002, 0.001,
0.001, 0, 0.001, 0.001, 0.001, 0.001, 0.001, 0, 0, 0.001, 0.005,
0.01, 0.009, 0.007, 0.004, 0.005, 0.006, 0.014, 0.024, 0.044,
0.076, 0.08, 0.063, 0.043, 0.038, 0.047, 0.049, 0.039, 0.029,
0.024, 0.019, 0.014, 0.009, 0.006, 0.004, 0.01, 0.021, 0.023,
0.027, 0.035, 0.035, 0.04, 0.046, 0.038, 0.027, 0.023, 0.039,
0.066, 0.076, 0.074, 0.066, 0.05, 0.044, 0.043, 0.042, 0.055,
0.097, 0.169, 0.225, 0.216, 0.183, 0.157, 0.121, 0.104, 0.103,
0.081, 0.056, 0.037, 0.036, 0.05, 0.053, 0.118, 0.204, 0.199,
0.169, 0.137, 0.169, 0.215, 0.182, 0.127, 0.123, 0.168, 0.176,
0.15, 0.167, 0.227, 0.248, 0.208, 0.146, 0.093, 0.055, 0.031,
0.017, 0.01, 0.006, 0.004, 0.01, 0.025, 0.035, 0.053, 0.196,
0.474, 0.62, 0.534, 0.375, 0.235, 0.138, 0.078, 0.055, 0.055,
0.05, 0.047, 0.069, 0.093, 0.087, 0.065, 0.044, 0.027, 0.018,
0.013, 0.009, 0.007, 0.006, 0.005, 0.02, 0.039, 0.039, 0.03,
0.02, 0.013, 0.01, 0.01, 0.011, 0.012, 0.014, 0.027, 0.039, 0.041,
0.04, 0.033, 0.026, 0.021, 0.015, 0.01, 0.006, 0.009, 0.015,
0.148, 0.326, 0.323, 0.288, 0.262, 0.217, 0.215, 0.251, 0.363,
0.499, 0.507, 0.402, 0.278, 0.246, 0.421, 0.637, 0.804, 1.049,
1.097, 0.88, 0.71, 0.717, 0.841, 0.912, 0.902, 0.81, 0.792, 0.838,
0.666, 0.454, 0.331, 0.272, 0.196, 0.127, 0.08, 0.05, 0.032,
0.026, 0.082, 0.168, 0.199, 0.233, 0.293, 0.349, 0.34, 0.26,
0.175, 0.232, 0.385, 0.419, 0.368, 0.293, 0.277, 0.272, 0.21,
0.141, 0.088, 0.053, 0.04, 0.051, 0.072, 0.092, 0.106, 0.101,
0.078, 0.053, 0.034, 0.022, 0.015, 0.011, 0.009, 0.008, 0.008,
0.007, 0.007, 0.008, 0.007, 0.022, 0.041, 0.04, 0.22, 0.489,
0.535, 0.51, 0.535, 0.52, 0.395, 0.261, 0.16, 0.194, 0.625, 1.167,
1.242, 1.138, 1.097, 0.914, 0.733, 0.656, 0.543, 0.441, 0.363,
0.257, 0.18, 0.139, 0.125, 0.201, 0.351, 0.407, 0.329, 0.224,
0.139, 0.083, 0.048, 0.028, 0.018, 0.012, 0.009, 0.007, 0.007,
0.006, 0.006, 0.006, 0.022, 0.078, 0.168, 0.281, 0.354, 0.542,
0.87, 0.972, 0.826, 0.618, 0.458, 0.327, 0.215, 0.147, 0.155,
0.288, 0.481, 0.585, 0.549, 0.459, 0.602, 0.799, 0.716, 0.554,
0.381, 0.3, 0.283, 0.281, 0.298, 0.272, 0.229, 0.163, 0.105,
0.064, 0.086, 0.132, 0.119, 0.17, 0.314, 0.415, 0.432, 0.408,
0.373, 0.306, 0.215, 0.138, 0.083, 0.049, 0.089, 0.242, 0.341,
0.482, 0.643, 0.559, 0.461, 0.43, 0.416, 0.394, 0.307, 0.207,
0.129, 0.076, 0.045, 0.027, 0.017, 0.011, 0.009, 0.007, 0.009,
0.053, 0.106, 0.101, 0.075, 0.05, 0.032, 0.021, 0.015, 0.093,
0.219, 0.332, 0.4, 0.334, 0.253, 0.225, 0.308, 0.414, 0.493,
0.702, 0.823, 0.751, 0.698, 0.681, 0.611, 0.502, 0.398, 0.276,
0.174, 0.104, 0.159, 0.31, 0.384, 0.366, 0.405, 0.539, 0.546,
0.43, 0.299, 0.19, 0.113, 0.066, 0.038, 0.023, 0.016, 0.014,
0.012, 0.029, 0.051, 0.135, 0.237, 0.22, 0.161, 0.123, 0.115,
0.212, 0.416, 0.667, 0.908, 0.984, 0.874, 0.677, 0.507, 0.445,
0.548, 0.599, 0.509, 0.36, 0.23, 0.138, 0.08, 0.046, 0.027, 0.017,
0.011, 0.009, 0.007, 0.007, 0.019, 0.037, 0.038, 0.037, 0.045,
0.048, 0.107, 0.202, 0.211, 0.259, 0.389, 0.488, 0.592, 0.658,
0.588, 0.441, 0.312, 0.223, 0.226, 0.343, 0.437, 0.506, 0.808,
1.057, 0.897, 0.675, 0.507, 0.38, 0.363, 0.375, 0.481, 0.63,
0.564, 0.407, 0.265, 0.178, 0.131, 0.22, 0.4, 0.465, 0.586, 1.03,
1.46, 1.406, 1.06, 0.696, 0.423, 0.25, 0.15, 0.164, 0.445, 0.706,
0.635, 0.458, 0.376, 0.553, 1.046, 1.814, 2.184, 1.916, 1.539,
1.158, 1.025)
expect_equal(x, w)
})
cvitolo/fuse documentation built on May 14, 2019, 12:55 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("test-fuserouting.sim")
test_that("multiplication works", {
y <- c(0, 0, 0, 0, 0.001, 0, 0, 0, 0, 0, 0.001, 0, 0, 0, 0, 0, 0.001,
0, 0, 0.001, 0, 0.001, 0, 0.001, 0, 0.002, 0, 0.046, 0.005, 0,
0.034, 0.312, 0.001, 0, 0, 0, 0, 0, 0.002, 0, 0.002, 0.002, 0.109,
0.01, 0.003, 0.002, 0.003, 0.053, 0.003, 0.033, 0.005, 0.009,
0.006, 0.085, 0.001, 0, 0, 0.001, 0.003, 0.037, 0.031, 0.006,
0, 0.01, 0.007, 0.008, 0.003, 0.006, 0.001, 0.006, 0.005, 0,
0.001, 0.002, 0.008, 0.009, 0.025, 0.008, 0.001, 0, 0, 0, 0,
0.007, 0.012, 0.019, 0.008, 0.014, 0, 0.006, 0.01, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.003, 0.018, 0.006, 0.001,
0.001, 0.002, 0.019, 0.006, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0.01, 0, 0.027, 0.001, 0.007, 0, 0.002,
0, 0.001, 0, 0.018, 0.001, 0.013, 0.005, 0.011, 0.004, 0, 0.002,
0.003, 0.009, 0.01, 0.006, 0.001, 0.001, 0.002, 0, 0, 0.001,
0, 0, 0, 0, 0, 0.006, 0.002, 0.001, 0.001, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0.001, 0, 0, 0.001, 0, 0, 0, 0, 0.021, 0,
0.003, 0.01, 0.002, 0.023, 0.018, 0.003, 0, 0.007, 0, 0, 0.002,
0.001, 0, 0, 0, 0, 0, 0.001, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0.012, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.001, 0, 0.005, 0.001,
0.004, 0.002, 0.001, 0.001, 0, 0, 0.013, 0, 0.005, 0.001, 0,
0.011, 0.026, 0, 0, 0.031, 0.001, 0.006, 0.001, 0, 0, 0, 0.006,
0, 0, 0, 0, 0, 0.022, 0, 0.017, 0.007, 0.006, 0.003, 0, 0.01,
0.002, 0.001, 0.011, 0.002, 0.017, 0.005, 0.006, 0, 0, 0, 0,
0, 0, 0, 0.001, 0.009, 0.003, 0.002, 0.004, 0, 0, 0, 0, 0.016,
0, 0.006, 0.002, 0, 0, 0, 0.001, 0, 0, 0, 0, 0, 0.001, 0.001,
0.002, 0.003, 0.008, 0.03, 0, 0, 0.01, 0.026, 0, 0, 0, 0, 0.002,
0.013, 0.001, 0.002, 0.011, 0.005, 0, 0.001, 0.003, 0, 0, 0.001,
0.002, 0.018, 0, 0.003, 0.009, 0.002, 0.003, 0.001, 0, 0, 0,
0.003, 0.001, 0.001, 0, 0, 0, 0, 0, 0.074, 0.041, 0.002, 0.002,
0, 0, 0, 0, 0, 0.004, 0.012, 0.005, 0.001, 0.001, 0.008, 0.02,
0.027, 0.006, 0.036, 0.002, 0, 0.018, 0.041, 0.01, 0, 0, 0, 0,
0, 0.003, 0.003, 0.001, 0, 0, 0, 0, 0.025, 0.023, 0, 0, 0, 0,
0, 0, 0, 0, 0.011, 0.02, 0.001, 0.016, 0.022, 0.067, 0.149, 0.048,
0.004, 0, 0.022, 0.015, 0.147, 0.014, 0.024, 0.015, 0.017, 0.002,
0.036, 0.035, 0.003, 0.003, 0, 0, 0, 0.001, 0.001, 0.003, 0.001,
0, 0.004, 0, 0.037, 0, 0, 0.104, 0.013, 0.001, 0, 0.014, 0.088,
0.001, 0, 0, 0.001, 0.007, 0.021, 0.015, 0.003, 0.002, 0, 0.006,
0.007, 0.001, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.001, 0, 0.023, 0.015,
0.023, 0, 0.01, 0.002, 0.051, 0.004, 0.079, 0.004, 0.012, 0.001,
0.163, 0.032, 0.051, 0.022, 0.01, 0.003, 0.015, 0.042, 0.114,
0.088, 0.002, 0, 0, 0, 0.002, 0, 0, 0, 0.023, 0.003, 0.004, 0,
0, 0, 0.001, 0.001, 0.015, 0.079, 0.006, 0.009, 0.087, 0.075,
0.013, 0.003, 0.086, 0.003, 0.043, 0.059, 0.011, 0.002, 0.003,
0.031, 0.007, 0, 0.001, 0.001, 0.096, 0, 0.014, 0.012, 0.085,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.046, 0.008, 0.091, 0.035,
0.028, 0.101, 0.067, 0.097, 0.122, 0.03, 0.003, 0, 0.064, 0.003,
0, 0.001, 0.041, 0.001, 0.028, 0, 0, 0, 0, 0, 0, 0, 0, 0.006,
0.034, 0.001, 0.001, 0.003, 0, 0.128, 0.077, 0.023, 0.001, 0.001,
0.001, 0, 0, 0.002, 0.136, 0.022, 0.012, 0.152, 0.041, 0.01,
0.011, 0, 0, 0, 0, 0, 0, 0, 0.089, 0.001, 0.113, 0.233, 0.147,
0.027, 0.251, 0.025, 0.049, 0.001, 0, 0, 0.014, 0.005, 0.007,
0.001, 0, 0, 0, 0, 0, 0, 0.005, 0, 0, 0, 0, 0, 0, 0.007, 0.033,
0, 0.001, 0, 0, 0.02, 0.001, 0.08, 0.006, 0.204, 0.089, 0.005,
0.005, 0.004, 0.102, 0.059, 0.012, 0.002, 0.021, 0.018, 0.004,
0, 0.002, 0, 0, 0.07, 0.022, 0.007, 0.076, 0.032, 0.017, 0.103,
0.004, 0.002, 0.005, 0.05, 0.154, 0.099, 0.037, 0.08, 0.001,
0.021, 0.072, 0.025, 0.048, 0.163, 0.279, 0.419, 0.182, 0.029,
0.176, 0.061, 0.004, 0.21, 0.008, 0.005, 0.011, 0.005, 0.116,
0.073, 0.001, 0.719, 0.006, 0.126, 0.051, 0.107, 0.57, 0.008,
0.006, 0.002, 0.401, 0.216, 0.033, 0.094, 0.456, 0.332, 0.102,
0.004, 0.004, 0.002, 0.001, 0.001, 0.002, 0.001, 0.004, 0.003,
0.062, 0.068, 0.022, 0.188, 1.18, 1.188, 0.132, 0.004, 0.003,
0.001, 0.001, 0.008, 0.108, 0.047, 0.006, 0.096, 0.199, 0.065,
0.004, 0.005, 0.004, 0.003, 0.013, 0.003, 0.004, 0.005, 0.005,
0.003, 0.143, 0.013, 0.007, 0.001, 0.003, 0.003, 0.015, 0.012,
0.02, 0.001, 0.041, 0.103, 0.005, 0.061, 0.011, 0.006, 0.024,
0.001, 0.001, 0.001, 0.001, 0.052, 0.006, 1.247, 0.099, 0.017,
0.427, 0.002, 0.214, 0.34, 0.401, 0.998, 0.543, 0.11, 0.005,
0.067, 0.596, 1.533, 0.56, 1.624, 1.672, 0.027, 0.235, 0.783,
1.183, 1.243, 0.628, 0.958, 0.035, 1.845, 0.029, 0.005, 0.042,
0.42, 0.013, 0.005, 0.008, 0.02, 0.005, 0.015, 0.042, 0.55, 0.146,
0.219, 0.426, 0.463, 0.433, 0.008, 0.023, 0.005, 1.164, 0.352,
0.257, 0.068, 0.203, 0.482, 0.013, 0.006, 0.006, 0.006, 0.006,
0.081, 0.126, 0.121, 0.134, 0.114, 0.013, 0.006, 0.006, 0.006,
0.006, 0.006, 0.006, 0.011, 0.006, 0.006, 0.006, 0.011, 0.006,
0.006, 0.144, 0.011, 0.006, 1.772, 0.339, 0.262, 0.568, 0.781,
0.011, 0.006, 0.006, 0.006, 0.944, 3.209, 1.27, 0.096, 1.561,
0.642, 0.008, 0.874, 0.378, 0.11, 0.439, 0.008, 0.006, 0.154,
0.044, 0.223, 0.758, 0.694, 0.006, 0.008, 0.006, 0.006, 0.006,
0.006, 0.006, 0.006, 0.006, 0.006, 0.006, 0.006, 0.006, 0.006,
0.006, 0.154, 0.34, 0.432, 0.641, 0.207, 2.076, 1.237, 0.37,
0.093, 0.258, 0.182, 0.006, 0.029, 0.115, 0.447, 1.005, 0.824,
0.452, 0.136, 0.345, 2.218, 0.054, 0.281, 0.067, 0.008, 0.572,
0.026, 0.587, 0.092, 0.233, 0.006, 0.006, 0.006, 0.006, 0.447,
0.011, 0.006, 0.785, 0.633, 0.419, 0.296, 0.342, 0.245, 0.006,
0.011, 0.006, 0.006, 0.006, 0.569, 0.808, 0.019, 1.756, 0.087,
0.006, 0.635, 0.26, 0.564, 0.077, 0.008, 0.006, 0.006, 0.006,
0.006, 0.006, 0.006, 0.006, 0.006, 0.006, 0.024, 0.398, 0.008,
0.008, 0.006, 0.006, 0.006, 0.006, 0.019, 0.752, 0.243, 0.856,
0.036, 0.013, 0.202, 0.291, 0.991, 0.217, 1.062, 1.563, 0.171,
0.578, 0.746, 0.629, 0.125, 0.382, 0.011, 0.006, 0.006, 0.006,
0.929, 0.464, 0.344, 0.072, 1.161, 0.647, 0.039, 0.08, 0.006,
0.006, 0.006, 0.006, 0.006, 0.006, 0.016, 0.013, 0.006, 0.176,
0.008, 0.822, 0.024, 0.008, 0.011, 0.171, 0.095, 1.058, 0.812,
1.659, 1.008, 0.791, 0.024, 0.413, 0.006, 1.007, 0.898, 0.25,
0.024, 0.008, 0.008, 0.006, 0.006, 0.006, 0.006, 0.006, 0.006,
0.006, 0.006, 0.006, 0.126, 0.019, 0.013, 0.062, 0.082, 0.006,
0.639, 0.185, 0.013, 0.892, 0.585, 0.672, 0.962, 0.476, 0.034,
0.108, 0.095, 0.098, 0.646, 0.787, 0.32, 0.943, 2.637, 0.027,
0.042, 0.436, 0.068, 0.305, 0.669, 0.123, 1.612, 0.221, 0.019,
0.013, 0.036, 0.125, 0.046, 1.174, 0.488, 0.34, 1.587, 3.204,
1.093, 0.112, 0.012, 0.016, 0.012, 0.053, 0.02, 0.697, 2.085,
0.051, 0.036, 0.013, 0.772, 1.776, 3.127, 4.233, 0.094, 1.149,
0.331, 0.528, 1.776)
myDELTIM <- 1
myMID <- 60
x <- round(fuserouting.sim(U = y,
mid = myMID,
deltim = myDELTIM,
timedelay = 3), 3)
w <- c(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, 0.001, 0.001, 0.006, 0.012, 0.012, 0.013, 0.048,
0.088, 0.081, 0.058, 0.037, 0.021, 0.012, 0.007, 0.004, 0.002,
0.002, 0.013, 0.029, 0.029, 0.022, 0.015, 0.016, 0.019, 0.02,
0.02, 0.017, 0.014, 0.019, 0.028, 0.024, 0.017, 0.011, 0.007,
0.008, 0.015, 0.018, 0.016, 0.012, 0.01, 0.009, 0.008, 0.007,
0.006, 0.005, 0.005, 0.004, 0.003, 0.002, 0.003, 0.004, 0.008,
0.011, 0.011, 0.008, 0.005, 0.003, 0.002, 0.002, 0.004, 0.007,
0.01, 0.011, 0.01, 0.008, 0.008, 0.007, 0.005, 0.003, 0.002,
0.001, 0.001, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.003, 0.006, 0.006,
0.005, 0.004, 0.005, 0.007, 0.007, 0.005, 0.003, 0.002, 0.001,
0.001, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.001, 0.002,
0.005, 0.008, 0.008, 0.007, 0.005, 0.004, 0.002, 0.002, 0.003,
0.005, 0.006, 0.007, 0.008, 0.008, 0.007, 0.005, 0.004, 0.004,
0.005, 0.006, 0.006, 0.005, 0.004, 0.003, 0.002, 0.001, 0.001,
0.001, 0, 0, 0, 0.001, 0.002, 0.002, 0.002, 0.001, 0.001, 0.001,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.002,
0.005, 0.005, 0.005, 0.006, 0.007, 0.011, 0.012, 0.01, 0.008,
0.006, 0.004, 0.003, 0.002, 0.002, 0.001, 0.001, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.001, 0.003, 0.003, 0.002,
0.001, 0.001, 0, 0, 0, 0, 0, 0, 0.001, 0.002, 0.002, 0.002, 0.002,
0.002, 0.001, 0.001, 0.002, 0.004, 0.004, 0.004, 0.003, 0.003,
0.007, 0.01, 0.008, 0.009, 0.011, 0.01, 0.008, 0.006, 0.004,
0.002, 0.002, 0.002, 0.002, 0.001, 0.001, 0, 0.003, 0.006, 0.007,
0.009, 0.009, 0.008, 0.006, 0.005, 0.005, 0.004, 0.004, 0.005,
0.006, 0.008, 0.008, 0.007, 0.005, 0.003, 0.002, 0.001, 0.001,
0, 0, 0.001, 0.003, 0.003, 0.003, 0.003, 0.002, 0.001, 0.001,
0.002, 0.004, 0.005, 0.004, 0.004, 0.003, 0.002, 0.001, 0.001,
0.001, 0, 0, 0, 0, 0, 0.001, 0.001, 0.002, 0.006, 0.01, 0.009,
0.007, 0.009, 0.011, 0.009, 0.006, 0.004, 0.002, 0.003, 0.004,
0.004, 0.004, 0.005, 0.005, 0.004, 0.003, 0.002, 0.002, 0.001,
0.001, 0.003, 0.005, 0.005, 0.005, 0.005, 0.005, 0.004, 0.003,
0.002, 0.001, 0.001, 0.001, 0.001, 0.001, 0.001, 0, 0, 0, 0.008,
0.023, 0.027, 0.023, 0.016, 0.01, 0.006, 0.003, 0.002, 0.001,
0.003, 0.005, 0.005, 0.004, 0.004, 0.006, 0.011, 0.014, 0.016,
0.018, 0.014, 0.012, 0.015, 0.019, 0.017, 0.012, 0.008, 0.005,
0.003, 0.002, 0.002, 0.002, 0.002, 0.001, 0.001, 0, 0.003, 0.009,
0.012, 0.01, 0.007, 0.004, 0.002, 0.001, 0.001, 0, 0.001, 0.005,
0.008, 0.008, 0.011, 0.019, 0.042, 0.064, 0.062, 0.047, 0.033,
0.025, 0.035, 0.05, 0.048, 0.04, 0.032, 0.024, 0.02, 0.023, 0.023,
0.019, 0.013, 0.008, 0.005, 0.003, 0.002, 0.002, 0.002, 0.001,
0.001, 0.002, 0.005, 0.01, 0.009, 0.018, 0.031, 0.03, 0.022,
0.016, 0.021, 0.03, 0.026, 0.018, 0.011, 0.008, 0.008, 0.01,
0.011, 0.009, 0.007, 0.005, 0.005, 0.005, 0.004, 0.002, 0.002,
0.001, 0, 0, 0, 0, 0, 0, 0, 0.003, 0.007, 0.012, 0.013, 0.011,
0.01, 0.013, 0.017, 0.024, 0.031, 0.028, 0.021, 0.032, 0.052,
0.056, 0.053, 0.043, 0.031, 0.022, 0.021, 0.033, 0.054, 0.059,
0.047, 0.031, 0.019, 0.011, 0.007, 0.004, 0.002, 0.004, 0.006,
0.007, 0.006, 0.004, 0.002, 0.002, 0.001, 0.003, 0.013, 0.024,
0.024, 0.028, 0.042, 0.048, 0.04, 0.037, 0.039, 0.036, 0.038,
0.039, 0.031, 0.022, 0.018, 0.017, 0.014, 0.01, 0.006, 0.014,
0.026, 0.025, 0.022, 0.026, 0.032, 0.027, 0.018, 0.011, 0.007,
0.004, 0.002, 0.001, 0.001, 0, 0, 0, 0, 0.005, 0.012, 0.022,
0.036, 0.039, 0.045, 0.056, 0.066, 0.079, 0.083, 0.069, 0.048,
0.037, 0.034, 0.025, 0.017, 0.015, 0.016, 0.016, 0.016, 0.012,
0.008, 0.005, 0.003, 0.001, 0.001, 0, 0.001, 0.005, 0.01, 0.009,
0.007, 0.005, 0.017, 0.042, 0.052, 0.046, 0.033, 0.021, 0.013,
0.007, 0.004, 0.017, 0.037, 0.039, 0.048, 0.063, 0.06, 0.046,
0.033, 0.021, 0.012, 0.007, 0.004, 0.002, 0.001, 0.01, 0.022,
0.033, 0.068, 0.109, 0.118, 0.123, 0.129, 0.11, 0.084, 0.056,
0.034, 0.021, 0.015, 0.011, 0.008, 0.006, 0.004, 0.002, 0.001,
0.001, 0, 0.001, 0.001, 0.001, 0.001, 0.001, 0, 0, 0.001, 0.005,
0.01, 0.009, 0.007, 0.004, 0.005, 0.006, 0.014, 0.024, 0.044,
0.076, 0.08, 0.063, 0.043, 0.038, 0.047, 0.049, 0.039, 0.029,
0.024, 0.019, 0.014, 0.009, 0.006, 0.004, 0.01, 0.021, 0.023,
0.027, 0.035, 0.035, 0.04, 0.046, 0.038, 0.027, 0.023, 0.039,
0.066, 0.076, 0.074, 0.066, 0.05, 0.044, 0.043, 0.042, 0.055,
0.097, 0.169, 0.225, 0.216, 0.183, 0.157, 0.121, 0.104, 0.103,
0.081, 0.056, 0.037, 0.036, 0.05, 0.053, 0.118, 0.204, 0.199,
0.169, 0.137, 0.169, 0.215, 0.182, 0.127, 0.123, 0.168, 0.176,
0.15, 0.167, 0.227, 0.248, 0.208, 0.146, 0.093, 0.055, 0.031,
0.017, 0.01, 0.006, 0.004, 0.01, 0.025, 0.035, 0.053, 0.196,
0.474, 0.62, 0.534, 0.375, 0.235, 0.138, 0.078, 0.055, 0.055,
0.05, 0.047, 0.069, 0.093, 0.087, 0.065, 0.044, 0.027, 0.018,
0.013, 0.009, 0.007, 0.006, 0.005, 0.02, 0.039, 0.039, 0.03,
0.02, 0.013, 0.01, 0.01, 0.011, 0.012, 0.014, 0.027, 0.039, 0.041,
0.04, 0.033, 0.026, 0.021, 0.015, 0.01, 0.006, 0.009, 0.015,
0.148, 0.326, 0.323, 0.288, 0.262, 0.217, 0.215, 0.251, 0.363,
0.499, 0.507, 0.402, 0.278, 0.246, 0.421, 0.637, 0.804, 1.049,
1.097, 0.88, 0.71, 0.717, 0.841, 0.912, 0.902, 0.81, 0.792, 0.838,
0.666, 0.454, 0.331, 0.272, 0.196, 0.127, 0.08, 0.05, 0.032,
0.026, 0.082, 0.168, 0.199, 0.233, 0.293, 0.349, 0.34, 0.26,
0.175, 0.232, 0.385, 0.419, 0.368, 0.293, 0.277, 0.272, 0.21,
0.141, 0.088, 0.053, 0.04, 0.051, 0.072, 0.092, 0.106, 0.101,
0.078, 0.053, 0.034, 0.022, 0.015, 0.011, 0.009, 0.008, 0.008,
0.007, 0.007, 0.008, 0.007, 0.022, 0.041, 0.04, 0.22, 0.489,
0.535, 0.51, 0.535, 0.52, 0.395, 0.261, 0.16, 0.194, 0.625, 1.167,
1.242, 1.138, 1.097, 0.914, 0.733, 0.656, 0.543, 0.441, 0.363,
0.257, 0.18, 0.139, 0.125, 0.201, 0.351, 0.407, 0.329, 0.224,
0.139, 0.083, 0.048, 0.028, 0.018, 0.012, 0.009, 0.007, 0.007,
0.006, 0.006, 0.006, 0.022, 0.078, 0.168, 0.281, 0.354, 0.542,
0.87, 0.972, 0.826, 0.618, 0.458, 0.327, 0.215, 0.147, 0.155,
0.288, 0.481, 0.585, 0.549, 0.459, 0.602, 0.799, 0.716, 0.554,
0.381, 0.3, 0.283, 0.281, 0.298, 0.272, 0.229, 0.163, 0.105,
0.064, 0.086, 0.132, 0.119, 0.17, 0.314, 0.415, 0.432, 0.408,
0.373, 0.306, 0.215, 0.138, 0.083, 0.049, 0.089, 0.242, 0.341,
0.482, 0.643, 0.559, 0.461, 0.43, 0.416, 0.394, 0.307, 0.207,
0.129, 0.076, 0.045, 0.027, 0.017, 0.011, 0.009, 0.007, 0.009,
0.053, 0.106, 0.101, 0.075, 0.05, 0.032, 0.021, 0.015, 0.093,
0.219, 0.332, 0.4, 0.334, 0.253, 0.225, 0.308, 0.414, 0.493,
0.702, 0.823, 0.751, 0.698, 0.681, 0.611, 0.502, 0.398, 0.276,
0.174, 0.104, 0.159, 0.31, 0.384, 0.366, 0.405, 0.539, 0.546,
0.43, 0.299, 0.19, 0.113, 0.066, 0.038, 0.023, 0.016, 0.014,
0.012, 0.029, 0.051, 0.135, 0.237, 0.22, 0.161, 0.123, 0.115,
0.212, 0.416, 0.667, 0.908, 0.984, 0.874, 0.677, 0.507, 0.445,
0.548, 0.599, 0.509, 0.36, 0.23, 0.138, 0.08, 0.046, 0.027, 0.017,
0.011, 0.009, 0.007, 0.007, 0.019, 0.037, 0.038, 0.037, 0.045,
0.048, 0.107, 0.202, 0.211, 0.259, 0.389, 0.488, 0.592, 0.658,
0.588, 0.441, 0.312, 0.223, 0.226, 0.343, 0.437, 0.506, 0.808,
1.057, 0.897, 0.675, 0.507, 0.38, 0.363, 0.375, 0.481, 0.63,
0.564, 0.407, 0.265, 0.178, 0.131, 0.22, 0.4, 0.465, 0.586, 1.03,
1.46, 1.406, 1.06, 0.696, 0.423, 0.25, 0.15, 0.164, 0.445, 0.706,
0.635, 0.458, 0.376, 0.553, 1.046, 1.814, 2.184, 1.916, 1.539,
1.158, 1.025)
expect_equal(x, w)
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.