R/make.maturity.spatial.r

In jae0/snowcrab: Snow crab assessment suite for aegis* and associated projects.

make.maturity.spatial = function( distance=50 ) {

  require(MASS)
  require(doBy)

    # sex codes
    male = 0
    female = 1
    sex.unknown = 2

    # maturity codes
    immature = 0
    mature = 1
    mat.unknown = 2


  #  distance = seq(10,60,10)
  #  distance = 50

  #  subsample size-at-maturity estimates in a spatio-temporal context and then map it
  # mapping is continued in functions,figures.r and "map.maturity" in 2.figures.r

  det = snowcrab.db("det.georeferenced")
  to.keep = c("trip", "set", "sex", "cw", "mass", "abdomen", "chela", "mat",
    "shell", "gonad", "eggcol", "eggPr", "durometer", "legs",
    "station", "t0", "lon", "lat",
    "timestamp", "julian", "yr", "z", "t",
    "zsd", "tsd", "sa"
  )
  det = det[,to.keep]
  gc()

  loc = c("lon", "lat")

  years = sort( unique( det$yr ) )
  nyears = length( years )

  output = NULL

  for (y in 1:nyears) {
    j = which( det$yr == years[y] )
    dj = det[j,]
    sets = sort( unique(dj$uniqueid ) )
    nset = length(sets)

    print (years[y])

    for (s in 1:nset) {
      i = which( dj$uniqueid == sets[s] )
      dji = dj[i,]
      coord0 = dji[1,loc]  # focal pt
      d.ss = which( geodist(
        point=coord0, locations=dji[,loc], method="great.circle") <= distance
      )
      dji = dji[d.ss,]

      for (sex in c(male, female)) {
        sexi = which(dji$sex == sex )
        out = inf = NULL
        out = est.size.at.maturity (dji[sexi,], sex)

        if (!is.null(out) ) {
          out = data.frame( t(out ))
          inf = cbind( sex=sex, distance=distance, uniqueid=I(sets[s]),
                       yr=years[y], lon=coord0[1], lat=coord0[2], out
                )
          output = rbind( output , inf )
  }}}}

  good = which(
    output$converged==1 &
    output$cw50 >  20 &
    output$cw50 < 150 &
    output$deviance < 400 &
    output$aic < 400
  )

  maturity = output[good,]
  return (maturity )
}