makeSameMargMatrix
差分表を作る
makeSameMargMatrix(O)
makeSameMargMatrix <-
function (O, c = 1)
{
E <- tableExpAndMarginals(O)$etable
diff <- makeDiffMatrix(length(O[, 1]), length(O[1, ]), c)
E + diff
}
\name{makeSameMargMatrix}
\alias{makeSameMargMatrix}
%- Also NEED an '\alias' for EACH other topic documented here.
\title{
makeSameMargMatrix
}
\description{
差分表を作る
}
\usage{
makeSameMargMatrix(O)
}
%- maybe also 'usage' for other objects documented here.
\details{
%% ~~ If necessary, more details than the description above ~~
}
\value{
NxM行列
}
\references{
%% ~put references to the literature/web site here ~
}
\author{
%% ~~who you are~~
}
\note{
%% ~~further notes~~
}
%% ~Make other sections like Warning with \section{Warning }{....} ~
\seealso{
}
\examples{
N<-3
M<-4
makeDiffMatrix(N,M,c=1)
}