rescale_table: Rescale table given column and row sums and initial table

In mpiktas/retacoro: Recover Table Given Column And Row Totals

Description

Rescales table so that the result has the supplied column and row sums. The matrix must have positive elements in first row and column and nonnegative elements elsewhere.

Usage

rescale_table(initM, col_sums, row_sums, ...)

Arguments

initM	the initial matrix
col_sums	the vector of column sums
row_sums	the vector of row sums
...	additional arguments to nleqlsv

Value

a list with the following elements

table	a recovered table
opt	a result of nleqslv

Examples

set.seed(10)
m <- matrix(runif(9),3)
ma <- m + matrix(runif(9),3)/20
res <- rescale_table(ma, colSums(m), rowSums(m))
res$table - m
ma[3,3] <- 0
res <- rescale_table(ma, colSums(m), rowSums(m))
res$table

mpiktas/retacoro documentation built on May 23, 2019, 6:32 a.m.