From ef8a7235084161ac7163989480873ea377c23c90 Mon Sep 17 00:00:00 2001 From: "willgearty@gmail.com" Date: Tue, 8 Oct 2019 14:52:56 -0500 Subject: [PATCH] Fix travis --- R/OUwieAvg.R | 3 ++- man/OUwieParSumm.Rd | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/R/OUwieAvg.R b/R/OUwieAvg.R index fbcec52..c7067a0 100644 --- a/R/OUwieAvg.R +++ b/R/OUwieAvg.R @@ -64,6 +64,7 @@ deltaAIC <- function(AIC, na.rm = TRUE){ #' @return An \code{ouwiepars} object. Basically a 4-D array that can be passed to other functions for further analysis/visualization. #' @export #' @examples +#' \dontrun{ #' library(OUwie) #' data(tworegime) #' ou.results <- list() @@ -73,7 +74,7 @@ deltaAIC <- function(AIC, na.rm = TRUE){ #' ou.results[[4]] <- OUwie(tree,trait,model=c("OUMV")) #' #' #Both regimes have same parameters for BM1 model. Both regimes have different parameters for other models. -#' regime.mat <- data.frame(BM1 = c(1, 1), BMS = c(1,2), OUM = c(1,2), OUMV = c(1,2), row.names = c(1,2)) +#' regime.mat <- data.frame(BM1 = c(1, 1), BMS = c(1,2), OUM = c(1,2), OUMV = c(1,2), row.names = c(1,2))} #' #' OUwieParSumm(ou.results, regime.mat) OUwieParSumm <- function(ou.results, regime.mat, params = c("Alpha","Sigma.sq","Theta","Theta.se", "AICc")){ diff --git a/man/OUwieParSumm.Rd b/man/OUwieParSumm.Rd index d504369..6ba2e6c 100644 --- a/man/OUwieParSumm.Rd +++ b/man/OUwieParSumm.Rd @@ -31,6 +31,7 @@ It is assumed that the order of the models/\code{colnames} in \code{regime.mat} Valid options for \code{params} are "Alpha", "Sigma.sq", "Theta", "Theta.se", "Halflife" (phylogenetic half-life), "Stat.var" (stationary variance), "AIC", "AICc", and "BIC". } \examples{ +\dontrun{ library(OUwie) data(tworegime) ou.results <- list() @@ -40,7 +41,7 @@ ou.results[[3]] <- OUwie(tree,trait,model=c("OUM")) ou.results[[4]] <- OUwie(tree,trait,model=c("OUMV")) #Both regimes have same parameters for BM1 model. Both regimes have different parameters for other models. -regime.mat <- data.frame(BM1 = c(1, 1), BMS = c(1,2), OUM = c(1,2), OUMV = c(1,2), row.names = c(1,2)) +regime.mat <- data.frame(BM1 = c(1, 1), BMS = c(1,2), OUM = c(1,2), OUMV = c(1,2), row.names = c(1,2))} OUwieParSumm(ou.results, regime.mat) }