R/print.kvcfa.R

Defines functions `print.kvCFA`

`print.kvCFA` <-
function(x,...)
{
  cat("\n")
  cat("Results of kvCFA-fit: \n")
  cat("\n")
  print(apply(x$restable, 2, round, 4))
  cat("\n")
  cn <- colnames(x$struc.mat)
  svec <- apply(x$struc.mat,1, function(xx) cn[xx==1])
  ex <- data.frame(svec,x$typevec)
  dimnames(ex)[[2]] <- c("Excluded Cell","Type/Antitype")
  print(ex)
  cat("\n")
}

Try the cfa package in your browser

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

cfa documentation built on May 2, 2019, 1:46 p.m.