knitr::opts_chunk$set(echo=FALSE, message = FALSE, warning = FALSE, comment="")
y <- as.list(params$x) if(inherits(y, "hydropaper")) { dim(y$binary) } else { nlc <- sapply(y, '[[', 'binary', USE.NAMES = TRUE) sapply(nlc, dim) }
if(inherits(y, "hydropaper")) { print(y) plot(y) } else { for(i in 1:length(y)) { cat(names(y[i])) print(y[[i]]) plot(y[[i]]) } }
Date and time: r Sys.time()
This document was automatically generated with package hydropaper
Powered by The Master in Plant Protection Program - Instituto Federal Goiano
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.