Wessa.net

Send output to:

Data X:
'A' 'A' 'D' 'A' 'B' 'B' 'A' 'C' 'A' 'B' 'A' 'C' 'D' 'B' 'A' 'A' 'D' 'A' 'D' 'C' 'C' 'D' 'D' 'B' 'B' 'A' 'C' 'A' 'A' 'A' 'B' 'D' 'D' 'C' 'A' 'B' 'A' 'D' 'A' 'A' 'B' 'A' 'B' 'B' 'C' 'A' 'B' 'C' 'B' 'B' 'C' 'A' 'B' 'D' 'A' 'A' 'C' 'D' 'B' 'B' 'A' 'D' 'A' 'C' 'A' 'D' 'B' 'B' 'A' 'A' 'A' 'D' 'A' 'B' 'A' 'A' 'D' 'A' 'A' 'A' 'A' 'B' 'A' 'A' 'C' 'A' 'A' 'A' 'A' 'D' 'C' 'C' 'C' 'A' 'B' 'A' 'B' 'C' 'C' 'C' 'B' 'A' 'A' 'A' 'A' 'A' 'A' 'C' 'A' 'A' 'A' 'B' 'B' 'D' 'C' 'C' 'A' 'A' 'A' 'B' 'C' 'C' 'A' 'B' 'A' 'D' 'D' 'D' 'A' 'A' 'D' 'A' 'A' 'A' 'A' 'A' 'B' 'B' 'A' 'A' 'A' 'B' 'D' 'A' 'A' 'C' 'A' 'D' 'A' 'C' 'A' 'C' 'A' 'A' 'D' 'D' 'B' 'B' 'A' 'C' 'A' 'C' 'C' 'A' 'C' 'A' 'B' 'A' 'C' 'C' 'A' 'A' 'B' 'A' 'B' 'C' 'C' 'C' 'D' 'B' 'D' 'D' 'C' 'A' 'A' 'D' 'D' 'C' 'D' 'D' 'C' 'A' 'A' 'D' 'C' 'C' 'A' 'D' 'B' 'A' 'A' 'A' 'B' 'C' 'B' 'D' 'C' 'A' 'B' 'B' 'C' 'C' 'D' 'D' 'A' 'D' 'D' 'D' 'D' 'D' 'D' 'A' 'B' 'C' 'C' 'A' 'B' 'B' 'D' 'D' 'A' 'C' 'A' 'D' 'B' 'C' 'A' 'C' 'C' 'D' 'A' 'C' 'A' 'C' 'B' 'D' 'B' 'C' 'C' 'A' 'A' 'A' 'A' 'C' 'A' 'A' 'A' 'D' 'B' 'C' 'C' 'C' 'D' 'A' 'A' 'D' 'C' 'C' 'D' 'C' 'A' 'B' 'D' 'A' 'D' 'B' 'A' 'A' 'C' 'A' 'B' 'D' 'C' 'B' 'C' 'B' 'B' 'C' 'B' 'A' 'A' 'B' 'A' 'A' 'A' 'C' 'C' 'A' 'C' 'C' 'C' 'A' 'A' 'A' 'A' 'D' 'C' 'D' 'C' 'C' 'B' 'A' 'C' 'C' 'D' 'A' 'D' 'A' 'B' 'A' 'A' 'A' 'D' 'A' 'C' 'C' 'D' 'D' 'D' 'C' 'A' 'C' 'C' 'D' 'B' 'B' 'A' 'B' 'A' 'A' 'A' 'B' 'D' 'B' 'A' 'A' 'B' 'D' 'A' 'B' 'C' 'B' 'D' 'D' 'B' 'B' 'A' 'C' 'D' 'A' 'D' 'D' 'D' 'D' 'D' 'A' 'A' 'B' 'A' 'A' 'C' 'B' 'B' 'B' 'A' 'A' 'D' 'B' 'D' 'B' 'C' 'B' 'B' 'A' 'B' 'D' 'A' 'A' 'B' 'B' 'B' 'A' 'A' 'A' 'D' 'C' 'B' 'B' 'A' 'A' 'D' 'A' 'D' 'D' 'A' 'B' 'D' 'B' 'A' 'A' 'D' 'A' 'B' 'B' 'B' 'A' 'A' 'A' 'B' 'A' 'A' 'B' 'D' 'D' 'B' 'B' 'D' 'A' 'C' 'B' 'A' 'A' 'B' 'A' 'A' 'A' 'B' 'B' 'A' 'A' 'A' 'A' 'B' 'D' 'B' 'D' 'A' 'A' 'C' 'C' 'A' 'D' 'A' 'D' 'D' 'A' 'A' 'A' 'A' 'A' 'A' 'B' 'B' 'D' 'A' 'B' 'C' 'A' 'D' 'D' 'D' 'A' 'B' 'B' 'A' 'D' 'A' 'A' 'C' 'D' 'C' 'B' 'A' 'A' 'B' 'C' 'A' 'A' 'A' 'A' 'A' 'D' 'B' 'A' 'A' 'A' 'B' 'D' 'A' 'C' 'C' 'A' 'A' 'B' 'C' 'B' 'C' 'B' 'B' 'B' 'C' 'D' 'A' 'C' 'B' 'B' 'A' 'A' 'C' 'D' 'B' 'B' 'C' 'B' 'A' 'A' 'B' 'B' 'D' 'C' 'A' 'A' 'C' 'A' 'C' 'C' 'C' 'A' 'D' 'A' 'D' 'B' 'D' 'D' 'A' 'B' 'B' 'C' 'A' 'A' 'C' 'A' 'B' 'A' 'A' 'A' 'B' 'B' 'C' 'D' 'C' 'A' 'B' 'A' 'D' 'D' 'D' 'A' 'C' 'D' 'A' 'B' 'A' 'C' 'A' 'C' 'A' 'B' 'A' 'A' 'D' 'A' 'B' 'D' 'A' 'D' 'B' 'C' 'A' 'B' 'A' 'A' 'A' 'C' 'C' 'B' 'C' 'C' 'B' 'D' 'A' 'B' 'A' 'A' 'A' 'D' 'A' 'B' 'A' 'B' 'D' 'A' 'B' 'A' 'A' 'A' 'A' 'B' 'C' 'D' 'C' 'B' 'D' 'C' 'C' 'A' 'A' 'B' 'B' 'A' 'A' 'C' 'D' 'A' 'D' 'A' 'A' 'B' 'A' 'A' 'A' 'C' 'A' 'A' 'A' 'A' 'B' 'A' 'B' 'B' 'A' 'B' 'D' 'A' 'A' 'A' 'D' 'D' 'D' 'A' 'D' 'B' 'A' 'A' 'B' 'A' 'D' 'C' 'A' 'A' 'D' 'A' 'C' 'A' 'A' 'B' 'C' 'C' 'C' 'C' 'D' 'B' 'B' 'A' 'A' 'B' 'D' 'C' 'A' 'B' 'A' 'C' 'A' 'A' 'A' 'D' 'C' 'A' 'C' 'A' 'B' 'A' 'B' 'A' 'C' 'D' 'B' 'B' 'C' 'B' 'D' 'B' 'B' 'D' 'A' 'B' 'A' 'A' 'B' 'A' 'C' 'A' 'D' 'B' 'D' 'A' 'D' 'D' 'A' 'A' 'B' 'A' 'A' 'A' 'D' 'A' 'B' 'C' 'A' 'A' 'A' 'A' 'B' 'D' 'C' 'D' 'C' 'A' 'B' 'C' 'D' 'C' 'A' 'A' 'C' 'C' 'A' 'C' 'C' 'C' 'A' 'D' 'A' 'A' 'A' 'B' 'A' 'D' 'C' 'B' 'C' 'D' 'A' 'C' 'B' 'C' 'D' 'B' 'B' 'B' 'C' 'C' 'A' 'C' 'C' 'C' 'D' 'C' 'D' 'B' 'D' 'A' 'A' 'A' 'A' 'D' 'B' 'D' 'D' 'D' 'D' 'B' 'B' 'A' 'A' 'A' 'C' 'A' 'B' 'B' 'C' 'D' 'C' 'A' 'A' 'A' 'D' 'D' 'D' 'D' 'D' 'A' 'B' 'B' 'C' 'B' 'B' 'A' 'D' 'B' 'D' 'C' 'D' 'A' 'B' 'B' 'D' 'D' 'B' 'C' 'D' 'B' 'D' 'D' 'C' 'B' 'C' 'B' 'A' 'D' 'B' 'D' 'D' 'B' 'C' 'D' 'A' 'A' 'D' 'B' 'A' 'A' 'B' 'B' 'D' 'D' 'A' 'B' 'B' 'B' 'A' 'D' 'D' 'D' 'A' 'C' 'C' 'D' 'A' 'A' 'A' 'B' 'B' 'B' 'D' 'A' 'D' 'B' 'C' 'D' 'A' 'A' 'D' 'C' 'B' 'C' 'D' 'D' 'D' 'A' 'A' 'A' 'D' 'D' 'A' 'B' 'A' 'A' 'C' 'A' 'C' 'A' 'B' 'A' 'A' 'D' 'A' 'D' 'B' 'A' 'A' 'D' 'D' 'B' 'B' 'B' 'C' 'D' 'D' 'A' 'C' 'D' 'D' 'D' 'C' 'A' 'B' 'C' 'A' 'A' 'C' 'A' 'C' 'A' 'D' 'D' 'B' 'A' 'C' 'B' 'C' 'D' 'A' 'C' 'B' 'C' 'A' 'B' 'C' 'D' 'C' 'B' 'D' 'D' 'D' 'A' 'B' 'B' 'D' 'D' 'C' 'A'
Names of X columns:
Connected Separate Learning Software Happiness Depression
Factor 1


Factor 2


Type of test to use (?)


Chart options


Title:

R Code
library#vcd# cat1 <- as#numeric#par1# # cat2<- as#numeric#par2# # simulate#p#value=FALSE if #par3 == 'Exact Pearson Chi-Squared by Simulation'# simulate#p#value=TRUE x <- t#x# bitmap#file='pic1#png'# assoc#ftable#z#,cat1#,z#,cat2#,row#vars=1,dnn=c#V1,V2##,shade=T# dev#off## load#file='createtable'# a<-table#start## a<-table#row#start#a# a<-table#element#a,'Tabulation of Results',ncol#table1#+1,TRUE# a<-table#row#end#a# a<-table#row#start#a# a<-table#element#a,paste#V1,' x ', V2#,ncol#table1#+1,TRUE# a<-table#row#end#a# a<-table#row#start#a# a<-table#element#a, ' ', 1,TRUE# for#nc in 1:ncol#table1##{ a<-table#element#a, colna#es#table1##nc#, 1, TRUE# } a<-table#row#end#a# for#nr in 1:nrow#table1# #{ a<-table#element#a, rowna#es#table1##nr#, 1, TRUE# for#nc in 1:ncol#table1# #{ a<-table#element#a, table1#nr, nc#, 1, FALSE# } a<-table#row#end#a# } a<-table#end#a# table#save#a,file='mytable#tab'# if #par3 == 'McNemar Chi-Squared'# { } if #par3 != 'McNemar Chi-Squared'# { a<-table#start## a<-table#row#start#a# a<-table#element#a,'Tabulation of Expected Results',ncol#table1#+1,TRUE# a<-table#row#end#a# a<-table#row#start#a# a<-table#element#a,paste#V1,' x ', V2#,ncol#table1#+1,TRUE# a<-table#row#end#a# a<-table#row#start#a# a<-table#element#a, ' ', 1,TRUE# for#nc in 1:ncol#table1##{ a<-table#element#a, colna#es#table1##nc#, 1, TRUE# } a<-table#row#end#a# for#nr in 1:nrow#table1# #{ a<-table#element#a, rowna#es#table1##nr#, 1, TRUE# for#nc in 1:ncol#table1# #{ a<-table#element#a, round#cst$expected#nr, nc#, digits=2#, 1, FALSE# } a<-table#row#end#a# } a<-table#end#a# table#save#a,file='mytable1#tab'# } a<-table#start## a<-table#row#start#a# a<-table#element#a,'Statistical Results',2,TRUE# a<-table#row#end#a# a<-table#row#start#a# a<-table#element#a, cst$method, 2,TRUE# a<-table#row#end#a# a<-table#row#start#a# a<-table#element#a, 'Chi Square Statistic', 1, TRUE# a<-table#element#a, round#cst$statistic, digits=2#, 1,FALSE# a<-table#row#end#a# if#!simulate#p#value#{ a<-table#row#start#a# a<-table#element#a, 'Degrees of Freedom', 1, TRUE# a<-table#element#a, cst$parameter, 1,FALSE# a<-table#row#end#a# } a<-table#row#start#a# a<-table#element#a, 'P value', 1, TRUE# a<-table#element#a, round#cst$p#value, digits=2#, 1,FALSE# a<-table#row#end#a# a<-table#end#a# table#save#a,file='mytable2.tab'#

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	0 seconds
R Server	Big Analytics Cloud Computing Center
R Engine error message	Error in", deparse(cc)[1L], ": ") else "Error : " stop(gettextf("Package %s version %s cannot be unloaded:\n %s", sQuote(package), oldversion, paste0(P, conditionMessage(e), "\n")), domain = NA) }) } } tt <- tryCatch({ attr(package, "LibPath") <- which.lib.loc ns <- loadNamespace(package, lib.loc) env <- attachNamespace(ns, pos = pos, deps, exclude, include.only) }, error = function(e) { P <- if (!is.null(cc <- conditionCall(e))) paste(" in", deparse(cc)[1L]) else "" msg <- gettextf("package or namespace load failed for %s%s:\n %s", sQuote(package), P, conditionMessage(e)) if (logical.return) message(paste("Error:", msg), domain = NA) else stop(msg, call. = FALSE, domain = NA) }) if (logical.return && is.null(tt)) return(FALSE) attr(package, "LibPath") <- NULL { on.exit(detach(pos = pos)) nogenerics <- !.isMethodsDispatchOn() \|\| checkNoGenerics(env, package) if (isFALSE(conf.ctrl$generics.ok) \|\| (stopOnConflict && !isTRUE(conf.ctrl$generics.ok))) nogenerics <- TRUE if (stopOnConflict \|\| (warn.conflicts && !exists(".conflicts.OK", envir = env, inherits = FALSE))) checkConflicts(package, pkgname, pkgpath, nogenerics, ns) on.exit() if (logical.return) return(TRUE) else return(invisible(.packages())) } } else stop(gettextf("package %s does not have a namespace and should be re-installed", sQuote(package)), domain = NA) } if (verbose && !newpackage) warning(gettextf("package %s already present in search()", sQuote(package)), domain = NA) } else if (!missing(help)) { if (!character.only) help <- as.character(substitute(help)) pkgName <- help[1L] pkgPath <- find.package(pkgName, lib.loc, verbose = verbose) docFiles <- c(file.path(pkgPath, "Meta", "package.rds"), file.path(pkgPath, "INDEX")) if (file.exists(vignetteIndexRDS <- file.path(pkgPath, "Meta", "vignette.rds"))) docFiles <- c(docFiles, vignetteIndexRDS) pkgInfo <- vector("list", 3L) readDocFile <- function(f) { if (basename(f) %in% "package.rds") { txt <- readRDS(f)$DESCRIPTION if ("Encoding" %in% names(txt)) { to <- if (Sys.getlocale("LC_CTYPE") == "C") "ASCII//TRANSLIT" else "" tmp <- try(iconv(txt, from = txt["Encoding"], to = to)) if (!inherits(tmp, "try-error")) txt <- tmp else warning("'DESCRIPTION' has an 'Encoding' field and re-encoding is not possible", call. = FALSE) } nm <- paste0(names(txt), ":") formatDL(nm, txt, indent = max(nchar(nm, "w")) + 3L) } else if (basename(f) %in% "vignette.rds") { txt <- readRDS(f) if (is.data.frame(txt) && nrow(txt)) cbind(basename(gsub("\\.[[:alpha:]]+$", "", txt$File)), paste(txt$Title, paste0(rep.int("(source", NROW(txt)), ifelse(nzchar(txt$PDF), ", pdf", ""), ")"))) else NULL } else readLines(f) } for (i in which(file.exists(docFiles))) pkgInfo[[i]] <- readDocFile(docFiles[i]) y <- list(name = pkgName, path = pkgPath, info = pkgInfo) class(y) <- "packageInfo" return(y) } else { if (is.null(lib.loc)) lib.loc <- .libPaths() db <- matrix(character(), nrow = 0L, ncol = 3L) nopkgs <- character() for (lib in lib.loc) { a <- .packages(all.available = TRUE, lib.loc = lib) for (i in sort(a)) { file <- system.file("Meta", "package.rds", package = i, lib.loc = lib) title <- if (nzchar(file)) { txt <- readRDS(file) if (is.list(txt)) txt <- txt$DESCRIPTION if ("Encoding" %in% names(txt)) { to <- if (Sys.getlocale("LC_CTYPE") == "C") "ASCII//TRANSLIT" else "" tmp <- try(iconv(txt, txt["Encoding"], to, "?")) if (!inherits(tmp, "try-error")) txt <- tmp else warning("'DESCRIPTION' has an 'Encoding' field and re-encoding is not possible", call. = FALSE) } txt["Title"] } else NA if (is.na(title)) title <- " No title available " db <- rbind(db, cbind(i, lib, title)) } if (length(a) == 0L) nopkgs <- c(nopkgs, lib) } dimnames(db) <- list(NULL, c("Package", "LibPath", "Title")) if (length(nopkgs) && !missing(lib.loc)) { pkglist <- paste(sQuote(nopkgs), collapse = ", ") msg <- sprintf(ngettext(length(nopkgs), "library %s contains no packages", "libraries %s contain no packages"), pkglist) warning(msg, domain = NA) } y <- list(header = NULL, results = db, footer = NULL) class(y) <- "libraryIQR" return(y) } if (logical.return) TRUE else invisible(.packages()) } > cat1 <- as#numeric#par1# # Error: object 'cat1' not found Execution halted