comparison: Filter table A to perform a fair comparison with table B

In Schuch666/hackWRF: Functions to Work with WRF, NetCDF and Model Evaluation

Filter table A to perform a fair comparison with table B

Description

Filter table A to perform a fair comparison with table B using row.names

Usage

comparison(
  tabA,
  tabB,
  use_names,
  summaryze = FALSE,
  formate = TRUE,
  verbose = FALSE
)

Arguments

tabA	Table A, from evaluate (output values)
tabB	Table B, from evaluate (for row.names only)
use_names	list of names to be used instead of row.names of Table B
summaryze	logical, true to update or add a summary
formate	argument passed to evaluation function, only works with summaryze = TRUE
verbose	display additional information

Value

Table A containing only the row.names in table B

Note

to perform a comparison check both tables using comparison(A,B) and comparison(B,A)

Examples

model <- 1:10
data  <- model + rnorm(10,0.2)
A     <- stats(mo = model, ob = data)
for(i in 2:10){
   data  <- model + rnorm(10,0.2)
   A     <- rbind(A,stats(mo = model, ob = data))
}
row.names(A) <- c('a0','a1','a3','b0','b1','b2','b3','d0','d1','d2')

data   <- model + rnorm(10,0.2)
B      <- stats(mo = model, ob = data)
for(i in 2:5){
    data   <- model + rnorm(10,0.2)
    B      <- rbind(B,stats(mo = model, ob = data))

}
row.names(B) <- c('a0','a1','z0','z1','z2')

comparison(A,B,verbose = TRUE)
comparison(B,A,verbose = TRUE)

Schuch666/hackWRF documentation built on June 9, 2025, 1:46 p.m.