Commit ff45d3e1 authored by Tom Reynkens's avatar Tom Reynkens

Test PO with 2 cores

parent ec0ffef5
Type: Package
Package: smurf
Title: Sparse Multi-Type Regularized Feature Modeling
Version: 0.3.0.9021
Date: 2018-09-20
Version: 0.3.0.9022
Date: 2018-09-21
Authors@R: c(
person("Tom", "Reynkens", email = "tomreynkens@hotmail.com", role = c("aut", "cre"),
comment = c(ORCID = "0000-0002-5516-5107")),
......
......@@ -140,6 +140,16 @@ test_that("Test PO and penalty functions", {
expect_true(max(abs(po1() - unlist(po2.split))) < 1e-14)
# Run PO on 2 cores and expect no error
po2 <- function() {
.PO(beta.tilde = beta.tilde, beta.old = beta.old, pen.cov = pen.cov, n.par.cov = n.par.cov, group.cov = group.cov,
pen.mat.cov = pen.mat.cov, pen.mat.cov.aux = pen.mat.cov.aux1, lambda = lambda, lambda1 = lambda1, lambda2 = lambda2,
step = step, po.ncores = 2L)
}
expect_error(po2(),
NA)
##########
# Total penalty
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment