# Example using the output of simpleCJS.
x <- matrix(
c(TRUE, TRUE, TRUE, TRUE, TRUE,
TRUE, FALSE, TRUE, TRUE, FALSE,
TRUE, TRUE, FALSE, FALSE, FALSE,
TRUE, TRUE, FALSE, TRUE, TRUE,
TRUE, TRUE, TRUE, FALSE, FALSE),
ncol = 5, byrow = TRUE)
colnames(x) <- c("Release", "A1", "A2", "A3", "A4")
cjs.results <- simpleCJS(x)
# These cjs results can be used in advEfficiency
advEfficiency(cjs.results)
# Example using the output of dualArrayCJS.
x <- matrix(
c( TRUE, TRUE,
TRUE, FALSE,
TRUE, TRUE,
FALSE, TRUE,
FALSE, TRUE),
ncol = 2, byrow = TRUE)
colnames(x) <- c("A1.1", "A1.2")
cjs.results <- dualArrayCJS(x)
# These cjs results can be used in advEfficiency
advEfficiency(cjs.results)
# advEfficiency can also be run with the output from the main analyses.
# the example.results dataset is the output of a migration analysis
advEfficiency(example.results$overall.CJS)
Run the code above in your browser using DataLab