# NOT RUN {
data(gayhakelm)
data(gayhakelw)
par <- c(4e-4,2.9)
method <- "SANN"
span <- 1
chihake.mobw <- mobw.kg(par=par, lenw=gayhakelw, lenm=gayhakelm,
method=method, span=span)
# }
Run the code above in your browser using DataLab