R/print.optrcdmaeAT.R

In optrcdmaeAT: Optimal Row-Column Designs for Two-Colour cDNA Microarray Experiments

print.optrcdmaeAT<-function(x,...)
{
cat("\n        ---------------------------------------    \n")
cat("Title:  ",x$Optcrit,"-optimal or near-optimal row-column design        ","Date: ", format(Sys.time(), "%a %b %d %Y %H:%M:%S"),"\n",sep="")
cat("        ---------------------------------------    \n")
cat("Call:\n")
print(x$call)
#cat("\nparametric combinations:\n")
#cat("\nNumber of treatments:         ", x$v, "\n")
#cat("Number of arrays:              ", x$b, "\n")
#cat("Theta value:                   ",  x$theta, "\n")
#cat("Number of replications:        ",  x$nrep, "\n")
#cat("Number of exchange iteration:  ", x$itr.cvrgval, "\n")
#cat("Algorithm used:                ", x$Alg, "\n")
#cat("Optimality criterion used:      ", x$Optcrit, "-optimality criteria\n",sep="")
cat("\nResultant ",x$Optcrit,"-optimal or near-optimal row-column design:\n",sep="")
cat("\n")
print(data.frame(x$OptdesF))
cat("\n", x$file_loc2,"\n", x$file_loc,"\n")
cat("\n")
}