solveDampenedWLSj {DWLS}

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)