R/imarpeSurvey-class.R

In imarpe/path: Pelagic Assessment Tools for Hydroacoustics

# Metodo summary
summary.imarpeSurvey = function(objetc, what = "grouped",...){
  
  
  return(invisible())
}

# Metodo print
print.imarpeSurvey = function(objetc, ...){
  
  cat("Survey name:\n", objetc$info$surveyName, "\n\n")
  cat("Directory of inputs:\n", objetc$info$dirFiles, "\n\n")
  # cat("Base calas:\n", "Number of variables = ", dim(datos$datos$Base_calas)[2], 
  #     "\t Number of observations = ", dim(datos$datos$Base_calas)[1], "\n\n")
  
  return(invisible())
}

print.summary.imarpeSurvey = function(object, what = "grouped", ...){
  
  
  return(invisible())
}

plot.imarpeSurvey = function(object, domain=NA, dx=1/24, hires=TRUE, 
                             log=TRUE, ...) {

  old.par = par(no.readonly = TRUE)
  on.exit(par(old.par))
  
  par(mfrow=c(1,2))

  plotSurveyTracks(object=object, var="anc", domain=domain, hires=hires, ...)
  
  plotDistributionMap(object$bitacoraAcustica, var="anc", dx=dx, log=log, hires=hires, ...) 
  
  
  par(mfrow=c(1,1), mar = c(3,4,1,1))
  
  .getDistLengthMap(data = object$baseBiometrico)
  
  return(invisible())

}