if (FALSE) {
# Using the slik_j object from the toy example in help("example_reftable"):
plot1Dprof(slik_j,"s2")
slik_fix <- focal_refine(slik_j,focal=c(s2=2), size=100)
plot1Dprof(slik_fix,"s2")
# In that case the effect is not spectacular because
# there is no major problem in the starting profile.
}
Run the code above in your browser using DataLab