複数のマーカーについて一括してMakeWTable()を用いる

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

MakeWTableS

• 説明

複数のマーカーについて一括してMakeWTable()を用いる

• 使用例

MakeWTableS(g,k)

• ソース

MakeWTableS<-function(t,k=c(0,1)){
	n<-length(k)
	m<-matrix(0,length(t[1,]),length(t[,1])*n)
	for(i in 1:length(m[,1])){
		m[i,]<-MakeWTable(t[,i],k)
	}
	m
}

• Rdファイル

\name{MakeWTableS}
\alias{MMakeWTableS}
%- Also NEED an '\alias' for EACH other topic documented here.
\title{
MakeWTable
}
\description{
複数のマーカーについて一括してMakeWTable()を用いる
}
\usage{
MakeWTableS(g,k)
}
\arguments{
\item{g}{サンプル数の行数、マーカー数の列数の行列}
\item{k}{カテゴリの重みづけベクトル}
}
%- maybe also 'usage' for other objects documented here.
\details{
%%  ~~ If necessary, more details than the description above ~~
}
\value{
マーカー数の行数、カテゴリ数ｘサンプル数の列数であるような行列
}
\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{
Ns<-20
Nm<-5
k<-c(0,1)
num1<-sample(1:Ns,Nm,replace=TRUE)
num1<-sort(num1)
g<-matrix(0,Ns,Nm)
for(i in 1:Nm){
	g[,i]<-c(rep(0,Ns-num1[i]),rep(1,num1[i]))
}

MakeWTableS(t=g,k)