R/MSR.R

Defines functions MSR

Documented in MSR

MSR <- function(Block)
{
  Block <- as.matrix(Block)
  row_num <- nrow(Block)
  col_num <- ncol(Block)
  block_size <- row_num*col_num
  residue <- Block
  for (i in 1:row_num)
  {
    for (j in 1:col_num)
    {
      residue[i,j] <- Block[i,j]-sum(Block[i,])/col_num-sum(Block[,j])/row_num+Block[i,j]/block_size
    }
  }
  return(sum(residue)/block_size)
}

Try the OSNMTF package in your browser

Any scripts or data that you put into this service are public.

OSNMTF documentation built on Dec. 1, 2019, 1:22 a.m.