skate_ADMB_fit <- function() {
  require(R2admb)
	
  run_admb("skate")
  L <- read_admb("skate") 
clean_admb("skate")
  return(L)
}