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)
}
}
\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)
}