powered by
Gu and Wabha test functions
gw_f0(x)gw_f1(x)gw_f2(x)gw_f3(x)
gw_f1(x)
gw_f2(x)
gw_f3(x)
numeric; vector of points to evaluate the function at, on interval (0,1)
op <- options(digits = 4) x <- seq(0, 1, length = 6) gw_f0(x) gw_f1(x) gw_f2(x) gw_f3(x) # should be constant 0 options(op)
Run the code above in your browser using DataLab