semi parametric.R