R/summary.ds.R

Defines functions summary.ds

Documented in summary.ds

summary.ds <-
function(object, ...)
{
  x<-object
cat("\nInitial Data:\n ")
	print(x$IniDat)
cat("\n Command:\n")
 	print(x$Call)
cat("\n Analysis:\n")
	if(x$tipo=="O"){cat("Ordinary Dual Scaling\n")}
	if(x$tipo=="A"){cat("Force Classification DS\n")}
cat("\n Output Available on Demand:\n")
	summary(unclass(x))
}

Try the dualScale package in your browser

Any scripts or data that you put into this service are public.

dualScale documentation built on May 29, 2017, 9:29 a.m.