Nothing
#' @export
print.summary.stuartKfold <-
function(x,...) {
message('Warning: This is a beta-build of stuart. Please report any bugs you encounter.\n')
cat('SUMMARY OF ANALYSIS:\n\n')
cat('Number of Folds:', x$k, '\n')
cat('Analysis Type:', x$Type, '\n')
cat('Estimation Software:', x$Software, '\n')
cat('Models Estimated:', x$Models, '\n')
cat('Time Required:',x$Time,'seconds\n')
cat('\nCrossvalidation Results with', toupper(x$max.invariance), 'Invariance:\n')
print(x$Results)
cat('\nAverage Jaccard Similarity: ')
cat(paste0(paste0(names(x$Jaccard),': ',sprintf(x$Jaccard, fmt = '%#.3f'), collapse=', '), '\n'))
cat(paste0('\nConstructed Subtests: (k = ', which.max(x$Results$pheromone), ')\n'))
for (i in 1:length(x$Subtests)) {
cat(paste0(names(x$Subtests)[i],': ',paste(x$Subtests[[i]],collapse=' '),'\n'))
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.