自由度次元空間座標を算出する

• 予定パッケージ名
  • sphere
• 関数名
  • dfCoordinate
• タイトル

dfCoordinate

• 説明

自由度次元座標を算出する

• 使用例

dfCoordinate(O,Obs=TRUE)

• ソース

dfCoordinate <-
function (D, Obs = FALSE) 
{
    if (Obs) {
        D <- tableExpAndMarginals(D)$dtable
    }
    X <- CategoryVector2D(length(D[, 1]), length(D[1, ]))
    (length(D[, 1]) - 1) * (length(D[1, ]) - 1)/(length(D[, 1]) * 
        length(D[1, ])) * c(t(X) %*% matrix(c(t(D)), length(D), 
        1))
}

• Rdファイル

\name{dfCoordinate}
\alias{dfCoordinate}
%- Also NEED an '\alias' for EACH other topic documented here.
\title{
dfCoordinate
}
\description{
自由度次元座標を算出する
}
\usage{
dfCoordinate(O,Obs=TRUE)
}
%- maybe also 'usage' for other objects documented here.
\details{
%%  ~~ If necessary, more details than the description above ~~
}
\value{
(N-1)x(M-1)ベクトル
}
\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
O<-matrix(sample(10:50,N*M,replace=TRUE),N,M)
dfCoordinate(O,Obs=TRUE)
}