## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  eval = FALSE,
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
# library(MUGS)

## ----eval=FALSE---------------------------------------------------------------
# # Download and load a dataset
# #pairs.rel.CV <- load_pairs_rel_CV()
# #head(pairs.rel.CV)
# 
# #pairs.rel.EV <- load_pairs_rel_EV()
# #head(pairs.rel.CV)
# 
# #S_1 <- load_S_1()
# #head(S_1)
# 
# #S.2 <- load_S_1()
# #head(S.2)
# 
# #U.1 <- load_S_1()
# #head(U.1)
# 
# #U.2 <- load_S_1()
# #head(U.2)
# 
# #X.group.source <- load_X_group_source()
# #head(X.group.source)
# 
# #X.group.target <- load_X_group_target()
# #head(X.group.target)

## ----eval=FALSE---------------------------------------------------------------
# load(system.file("extdata", "S.1.Rdata", package = "MUGS"))
# load(system.file("extdata", "S.2.Rdata", package = "MUGS"))
# load(system.file("extdata", "X.group.source.Rdata", package = "MUGS"))
# load(system.file("extdata", "X.group.target.Rdata", package = "MUGS"))
# load(system.file("extdata", "pairs.rel.CV.Rdata", package = "MUGS"))
# load(system.file("extdata", "pairs.rel.EV.Rdata", package = "MUGS"))
# 

## ----eval=FALSE---------------------------------------------------------------
# MUGS(TUNE = T, Eva = F, Lambda = c(10, 20, 30), Lambda.delta = c(4500, 5000, 5500), n.core=1, tol=0.1, seed=1,
#      S.1 = S.1, S.2 = S.2, X.group.source = X.group.source, X.group.target=X.group.target,
#      pairs.rel.CV =  pairs.rel.CV, pairs.rel.EV =  pairs.rel.EV, p = 5, n.group = 30)

## ----eval=FALSE---------------------------------------------------------------
# MUGS(TUNE = F, Eva = T, Lambda = 10, Lambda.delta = 5000, n.core=1, tol=0.1, seed=1,
#      S.1 = S.1, S.2 = S.2, X.group.source = X.group.source, X.group.target=X.group.target,
#      pairs.rel.CV =  pairs.rel.CV, pairs.rel.EV =  pairs.rel.EV, p = 5, n.group = 30)