solveDampenedWLSj: solveDampenedWLSj

In DWLS: Gene Expression Deconvolution Using Dampened Weighted Least Squares

solveDampenedWLSj

Description

Solve dampened weighted least squares given a dampening constant.

Note: The function uses solveDampenedWLS() and findDampeningConstant().

Usage

solveDampenedWLSj(S, B, goldStandard, j)

Arguments

S	List output from trimData$sig (S)
B	List output from trimData$bulk (B)
goldStandard	Starting point for the weights, this can be determined using solveOLSInternal(S,B)
j	The dampening constant, this can be determined using findDampeningConstant(S,B,goldStandard)

Value

value (Dampened weighted least squares estimation values)

Examples

#Sig
#url <- "https://github.com/sistia01/DWLS/raw/main/inst/extdata/Sig.RData"
#dest <- "data/Sig.RData"
#download.file(url, dest)
#load("data/Sig.RData")
load(system.file("extdata", "Sig.RData", package = "DWLS"))

#dataBulk
#url <- "https://github.com/sistia01/DWLS/raw/main/inst/extdata/dataBulk.RData"
#dest <- "data/dataBulk.RData"
#download.file(url, dest)
#load("data/dataBulk.RData")
load(system.file("extdata", "dataBulk.RData", package = "DWLS"))

trimmed <- trimData(Sig, dataBulk)
S <- trimmed$sig
B <- trimmed$bulk
solution <- solveOLSInternal(S,B)
j <- findDampeningConstant(S,B,solution)
goldStandard <- solveOLSInternal(S,B)
solveDampenedWLSj(S,B,goldStandard,j)

DWLS documentation built on May 24, 2022, 5:07 p.m.