TestAllPatternsの出力のうち、対数尤度、被捜索者リスト、候補者リストを並べて出力する

  • 予定パッケージ名
    • HigashiNopponLikelihood
  • 関数名
    • printTAPout
  • タイトル
printTAPout
  • 説明
TestAllPatternsの出力のうち、対数尤度、被捜索者リスト、候補者リストを並べて出力する
  • 使用例
printTAPout(tap)
  • ソース
printTAPout<-function(tap){
	n<-length(tap$LogLike)
	
	for(i in 1:n){
		tmp<-paste("LogLike",tap$LogLike[[i]][2],"SearchedID",c(tap$SearchedID[[i]]),"CandidateID",c(tap$CandidateID[[i]]))
		print(tmp)
	}
}
  • Rdファイル
\name{printTAPout}
\alias{printTAPout}
%- Also NEED an '\alias' for EACH other topic documented here.
\title{
printTAPout
}
\description{
TestAllPatternsの出力のうち、対数尤度、被捜索者リスト、候補者リストを並べて出力する
}
\usage{
printTAPout(tap)
}
\arguments{
TestAllPatternsの出力オブジェクト
}
%- 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{
p<-matrix(
c(1:8,
  0,0,1,0,3,3,3,3,
  0,0,2,0,4,4,4,4,
  1,0,1,0,1,1,0,0,
  1,1,2,1,1,1,2,1),
  ncol=5)
NL<-15
AandP<-MakeAlleleProb(NL=NL)
Alleles<-AandP$Alleles
Probs<-AandP$Probs
G<-RandomGenotypeFamily(p,NL,Alleles,Probs)
tap<-TestAllPatterns(p=p,G=G,Gpool=Gpool,candidates=candidates,Alleles=Alleles,Probs=Probs)
printTAPout(tap)

}