vanvliet(boats,sigma=2,order=0) %>% plot("Zeroth-order Vanvliet along x")
vanvliet(boats,sigma=2,order=1) %>% plot("First-order Vanvliet along x")
vanvliet(boats,sigma=2,order=1) %>% plot("Second-order Vanvliet along x")
vanvliet(boats,sigma=2,order=1,axis="y") %>% plot("Second-order Vanvliet along y")
Run the code above in your browser using DataLab