# 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())
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.