From 65321d93daa84b12b752cf236de46b913c6af1fc Mon Sep 17 00:00:00 2001
From: wbonat <wbonat@gmail.com>
Date: Tue, 5 Jan 2016 21:05:56 +0100
Subject: [PATCH] Fix indentation
---
R/mc_build_sigma.R | 4 +++-
R/mc_variance_function.R | 3 ++-
2 files changed, 5 insertions(+), 2 deletions(-)
diff --git a/R/mc_build_sigma.R b/R/mc_build_sigma.R
index d46aa5e..3e858d9 100644
--- a/R/mc_build_sigma.R
+++ b/R/mc_build_sigma.R
@@ -30,7 +30,9 @@ mc_build_sigma <- function(mu, Ntrial = 1, tau, power, Z, sparse, variance,
Omega <- mc_build_omega(tau = tau, Z = Z, covariance_link = covariance, sparse = sparse)
chol_Sigma <- chol(Omega$Omega)
inv_chol_Sigma <- solve(chol_Sigma)
- output <- list(Sigma_chol = chol_Sigma, Sigma_chol_inv = inv_chol_Sigma, D_Sigma = Omega$D_Omega)
+ output <- list(Sigma_chol = chol_Sigma,
+ Sigma_chol_inv = inv_chol_Sigma,
+ D_Sigma = Omega$D_Omega)
}
if (covariance == "inverse") {
inv_Sigma <- mc_build_omega(tau = tau, Z = Z, covariance_link = "inverse", sparse = sparse)
diff --git a/R/mc_variance_function.R b/R/mc_variance_function.R
index f6fb9a6..0d54ff4 100644
--- a/R/mc_variance_function.R
+++ b/R/mc_variance_function.R
@@ -30,7 +30,8 @@
#' mc_variance_function(mu = mu$mu, power = c(2,1), Ntrial = 1, variance = 'binomialPQ',
#' inverse = FALSE, derivative_power = TRUE, derivative_mu = TRUE)
# Generic variance function ---------------------------
-mc_variance_function <- function(mu, power, Ntrial, variance, inverse, derivative_power, derivative_mu) {
+mc_variance_function <- function(mu, power, Ntrial, variance, inverse,
+ derivative_power, derivative_mu) {
assert_that(is.logical(inverse))
assert_that(is.logical(derivative_power))
assert_that(is.logical(derivative_mu))
--
GitLab