solveOLS {DWLS}

solveOLS

Description

This function solves or the unknown parameters using ordinary least squares (OLS). It is constrained such that cell type numbers are greater than 0.

Usage

solveOLS(S, B)

Arguments

S

List output from trimData$sig (S)

B

List output from trimData$bulk (B)

Value

Cell-type proportion

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
solveOLS(S, B)