## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----echo=FALSE, include=FALSE------------------------------------------------
library(metrica)
library(dplyr)
library(purrr)
library(tidyr)

## ----warning=FALSE, message=FALSE, include=TRUE, echo=TRUE, eval=FALSE--------
#  # Obtaining filepath from package folder
#  apsim_out_filepath <- system.file("extdata/soybean.out", package = "metrica")
#  
#  # Use import_apsim_out for APSIM Classic output
#  soybean.out <- metrica::import_apsim_out(filepath = apsim_out_filepath)
#  
#  head(soybean.out)

## ----warning=FALSE, message=FALSE, include=TRUE, echo=TRUE, eval=FALSE--------
#  # Obtaining path from package folder
#  apsim_db_folderpath <- system.file("extdata", package = "metrica")
#  
#  # Use import_apsim_db for APSIM NextGeneration output
#  soybean.db <- metrica::import_apsim_db(filename = "soybean.example.db", folder = apsim_db_folderpath)
#  
#  head(soybean.db)
#  
#  # If observed.data is already as a dataframe, the user may do the match using a simple code like this:
#  # PO.dataframe <- simulated.data %>% left_join(., observed.data) *by = "col" arg. could be required*
#