tests/testthat/test-cpop1.R

In kevinwang09/top: Cross Platform Omics Prediction

context("Test output of CPOP 1")
data(cpop_data_binary, package = 'CPOP')

x1 = cpop_data_binary$x1
x2 = cpop_data_binary$x2
x3 = cpop_data_binary$x3
y1 = cpop_data_binary$y1
y2 = cpop_data_binary$y2
y3 = cpop_data_binary$y3

set.seed(1)
z1 = pairwise_col_diff(x1)
z2 = pairwise_col_diff(x2)
cpop1_res = cpop1_iterate(z1 = z1, z2 = z2, y1 = y1, y2 = y2,
                          family = "binomial", alpha = 1)