myplotnls <- function(fit){
#your code goes here
}