R version 3.0.2 (2013-09-25) -- "Frisbee Sailing" Copyright (C) 2013 The R Foundation for Statistical Computing Platform: i686-pc-linux-gnu (32-bit) R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > x <- array(list('g' + ,'Often' + ,'Both' + ,'Same' + ,'Boys' + ,'g' + ,'Not_bul' + ,'Physical' + ,'Same' + ,'Boys' + ,'g' + ,'Rarely' + ,'Mental' + ,'Same' + ,'Girls' + ,'g' + ,'Rarely' + ,'Mental' + ,'Differnt' + ,'Boys' + ,'b' + ,'Not_bul' + ,'Physical' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Not_bul' + ,'Physical' + ,'Differnt' + ,'Boys' + ,'b' + ,'Not_bul' + ,'Not_bul' + ,'Same' + ,'Not_bul' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Rarely' + ,'Mental' + ,'Same' + ,'Boys' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Often' + ,'Mental' + ,'Both' + ,'Boys' + ,'g' + ,'Often' + ,'Mental' + ,'Same' + ,'Both' + ,'b' + ,'Often' + ,'Both' + ,'Differnt' + ,'Boys' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Not_bul' + ,'Mental' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Rarely' + ,'Mental' + ,'Differnt' + ,'Boys' + ,'b' + ,'Rarely' + ,'Both' + ,'Both' + ,'Boys' + ,'b' + ,'Not_bul' + ,'Mental' + ,'Differnt' + ,'Boys' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Rarely' + ,'Not_bul' + ,'Differnt' + ,'Boys' + ,'b' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Same' + ,'Boys' + ,'g' + ,'Often' + ,'Mental' + ,'Differnt' + ,'Girls' + ,'b' + ,'Often' + ,'Both' + ,'Differnt' + ,'Boys' + ,'b' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Not_bul' + ,'Mental' + ,'Not_bul' + ,'Boys' + ,'b' + ,'Rarely' + ,'Both' + ,'Differnt' + ,'Boys' + ,'b' + ,'Often' + ,'Both' + ,'Same' + ,'Boys' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Often' + ,'Both' + ,'Same' + ,'Both' + ,'g' + ,'Often' + ,'Mental' + ,'Differnt' + ,'Both' + ,'b' + ,'Often' + ,'Both' + ,'Differnt' + ,'Both' + ,'g' + ,'Rarely' + ,'Physical' + ,'Differnt' + ,'Boys' + ,'b' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Often' + ,'Mental' + ,'Differnt' + ,'Boys' + ,'g' + ,'Often' + ,'Mental' + ,'Differnt' + ,'Both' + ,'b' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Rarely' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Rarely' + ,'Both' + ,'Same' + ,'Girls' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Rarely' + ,'Physical' + ,'Differnt' + ,'Boys' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Often' + ,'Mental' + ,'Differnt' + ,'Girls' + ,'g' + ,'Often' + ,'Both' + ,'Differnt' + ,'Both' + ,'b' + ,'Rarely' + ,'Physical' + ,'Differnt' + ,'Boys' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Rarely' + ,'Mental' + ,'Both' + ,'Boys' + ,'b' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Rarely' + ,'Mental' + ,'Same' + ,'Girls' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Often' + ,'Not_bul' + ,'Same' + ,'Boys' + ,'g' + ,'Often' + ,'Mental' + ,'Both' + ,'Girls' + ,'g' + ,'Rarely' + ,'Mental' + ,'Same' + ,'Girls' + ,'b' + ,'Often' + ,'Both' + ,'Differnt' + ,'Boys' + ,'b' + ,'Rarely' + ,'Both' + ,'Differnt' + ,'Boys' + ,'g' + ,'Rarely' + ,'Not_bul' + ,'Not_bul' + ,'Girls' + ,'b' + ,'Rarely' + ,'Mental' + ,'Same' + ,'Boys' + ,'g' + ,'Rarely' + ,'Mental' + ,'Same' + ,'Girls' + ,'b' + ,'Often' + ,'Mental' + ,'Same' + ,'Boys' + ,'b' + ,'Not_bul' + ,'Mental' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Often' + ,'Physical' + ,'Same' + ,'Boys' + ,'g' + ,'Rarely' + ,'Mental' + ,'Same' + ,'Girls' + ,'b' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Rarely' + ,'Both' + ,'Both' + ,'Both' + ,'g' + ,'Rarely' + ,'Mental' + ,'Both' + ,'Both' + ,'g' + ,'Not_bul' + ,'Mental' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Rarely' + ,'Mental' + ,'Same' + ,'Boys' + ,'b' + ,'Rarely' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Rarely' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Often' + ,'Mental' + ,'Same' + ,'Boys' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Rarely' + ,'Mental' + ,'Same' + ,'Both' + ,'g' + ,'Not_bul' + ,'Mental' + ,'Same' + ,'Both' + ,'g' + ,'Often' + ,'Physical' + ,'Differnt' + ,'Both' + ,'b' + ,'Often' + ,'Not_bul' + ,'Same' + ,'Boys' + ,'b' + ,'Often' + ,'Physical' + ,'Differnt' + ,'Boys' + ,'g' + ,'Not_bul' + ,'Mental' + ,'Same' + ,'Not_bul' + ,'b' + ,'Often' + ,'Mental' + ,'Differnt' + ,'Boys' + ,'b' + ,'Rarely' + ,'Mental' + ,'Both' + ,'Boys' + ,'g' + ,'Often' + ,'Mental' + ,'Same' + ,'Girls' + ,'g' + ,'Often' + ,'Mental' + ,'Same' + ,'Girls' + ,'b' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Not_bul' + ,'Mental' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Often' + ,'Mental' + ,'Not_bul' + ,'Both' + ,'g' + ,'Often' + ,'Both' + ,'Both' + ,'Girls' + ,'g' + ,'Often' + ,'Mental' + ,'Same' + ,'Girls' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Rarely' + ,'Mental' + ,'Same' + ,'Girls' + ,'g' + ,'Often' + ,'Mental' + ,'Both' + ,'Boys' + ,'b' + ,'Rarely' + ,'Mental' + ,'Both' + ,'Boys' + ,'b' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Often' + ,'Physical' + ,'Differnt' + ,'Boys' + ,'g' + ,'Often' + ,'Both' + ,'Same' + ,'Girls' + ,'g' + ,'Rarely' + ,'Physical' + ,'Same' + ,'Boys' + ,'b' + ,'Often' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Often' + ,'Both' + ,'Both' + ,'Boys' + ,'b' + ,'Often' + ,'Not_bul' + ,'Both' + ,'Boys' + ,'b' + ,'Rarely' + ,'Physical' + ,'Same' + ,'Boys' + ,'b' + ,'Not_bul' + ,'Both' + ,'Differnt' + ,'Boys' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Often' + ,'Both' + ,'Both' + ,'Boys' + ,'b' + ,'Rarely' + ,'Both' + ,'Both' + ,'Boys' + ,'b' + ,'Often' + ,'Physical' + ,'Same' + ,'Boys' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Rarely' + ,'Mental' + ,'Same' + ,'Girls' + ,'g' + ,'Often' + ,'Mental' + ,'Same' + ,'Girls' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Rarely' + ,'Mental' + ,'Differnt' + ,'Boys' + ,'g' + ,'Rarely' + ,'Mental' + ,'Same' + ,'Boys' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Rarely' + ,'Mental' + ,'Both' + ,'Boys' + ,'g' + ,'Rarely' + ,'Physical' + ,'Differnt' + ,'Boys' + ,'g' + ,'Rarely' + ,'Both' + ,'Both' + ,'Boys' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Often' + ,'Mental' + ,'Same' + ,'Girls' + ,'b' + ,'Rarely' + ,'Physical' + ,'Same' + ,'Boys' + ,'b' + ,'Rarely' + ,'Mental' + ,'Differnt' + ,'Boys' + ,'g' + ,'Often' + ,'Mental' + ,'Both' + ,'Both' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Not_bul' + ,'Both' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Often' + ,'Mental' + ,'Differnt' + ,'Boys' + ,'b' + ,'Rarely' + ,'Mental' + ,'Both' + ,'Boys' + ,'g' + ,'Rarely' + ,'Mental' + ,'Same' + ,'Boys' + ,'g' + ,'Often' + ,'Mental' + ,'Same' + ,'Girls' + ,'b' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Rarely' + ,'Mental' + ,'Same' + ,'Girls' + ,'b' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Often' + ,'Both' + ,'Same' + ,'Boys' + ,'g' + ,'Often' + ,'Both' + ,'Same' + ,'Boys' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Rarely' + ,'Both' + ,'Same' + ,'Boys' + ,'b' + ,'Often' + ,'Mental' + ,'Both' + ,'Boys' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Rarely' + ,'Mental' + ,'Same' + ,'Boys' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Often' + ,'Mental' + ,'Same' + ,'Boys' + ,'b' + ,'Rarely' + ,'Physical' + ,'Same' + ,'Boys' + ,'b' + ,'Rarely' + ,'Mental' + ,'Same' + ,'Boys' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Often' + ,'Mental' + ,'Differnt' + ,'Boys' + ,'g' + ,'Often' + ,'Both' + ,'Both' + ,'Boys' + ,'b' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Often' + ,'Mental' + ,'Not_bul' + ,'Both' + ,'b' + ,'Rarely' + ,'Physical' + ,'Same' + ,'Boys' + ,'b' + ,'Often' + ,'Mental' + ,'Not_bul' + ,'Both' + ,'g' + ,'Rarely' + ,'Mental' + ,'Same' + ,'Boys' + ,'g' + ,'Often' + ,'Not_bul' + ,'Same' + ,'Both' + ,'b' + ,'Rarely' + ,'Physical' + ,'Differnt' + ,'Boys' + ,'g' + ,'Rarely' + ,'Both' + ,'Both' + ,'Both' + ,'b' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Rarely' + ,'Mental' + ,'Differnt' + ,'Boys' + ,'b' + ,'Rarely' + ,'Mental' + ,'Differnt' + ,'Boys' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Not_bul' + ,'Mental' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Rarely' + ,'Physical' + ,'Differnt' + ,'Boys' + ,'g' + ,'Not_bul' + ,'Mental' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Often' + ,'Both' + ,'Same' + ,'Both' + ,'b' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'g' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'b' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul' + ,'Not_bul') + ,dim=c(5 + ,193) + ,dimnames=list(c('gender' + ,'how_often_bullied' + ,'type_of_bullying' + ,'which_year' + ,'gender_of_bully') + ,1:193)) > y <- array(NA,dim=c(5,193),dimnames=list(c('gender','how_often_bullied','type_of_bullying','which_year','gender_of_bully'),1:193)) > for (i in 1:dim(x)[1]) + { + for (j in 1:dim(x)[2]) + { + y[i,j] <- as.numeric(x[i,j]) + } + } There were 50 or more warnings (use warnings() to see the first 50) > par1 = 'pearson' > main = 'Scatter Plots and p-values' > par1 <- 'pearson' > #'GNU S' R Code compiled by R2WASP v. 1.2.327 () > #Author: root > #To cite this work: Patrick Wessa, (2013), Multivariate Correlation Matrix (v1.0.7) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/Patrick.Wessa/rwasp_pairs.wasp/ > #Source of accompanying publication: > # > panel.tau <- function(x, y, digits=2, prefix='', cex.cor) + { + usr <- par('usr'); on.exit(par(usr)) + par(usr = c(0, 1, 0, 1)) + rr <- cor.test(x, y, method=par1) + r <- round(rr$p.value,2) + txt <- format(c(r, 0.123456789), digits=digits)[1] + txt <- paste(prefix, txt, sep='') + if(missing(cex.cor)) cex <- 0.5/strwidth(txt) + text(0.5, 0.5, txt, cex = cex) + } > panel.hist <- function(x, ...) + { + usr <- par('usr'); on.exit(par(usr)) + par(usr = c(usr[1:2], 0, 1.5) ) + h <- hist(x, plot = FALSE) + breaks <- h$breaks; nB <- length(breaks) + y <- h$counts; y <- y/max(y) + rect(breaks[-nB], 0, breaks[-1], y, col='grey', ...) + } > postscript(file="/var/fisher/rcomp/tmp/19b5p1386608287.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > pairs(t(y),diag.panel=panel.hist, upper.panel=panel.smooth, lower.panel=panel.tau, main=main) Error in plot.window(...) : need finite 'xlim' values Calls: pairs ... localPlot -> plot -> plot.default -> localWindow -> plot.window In addition: Warning messages: 1: In min(x) : no non-missing arguments to min; returning Inf 2: In max(x) : no non-missing arguments to max; returning -Inf 3: In min(x) : no non-missing arguments to min; returning Inf 4: In max(x) : no non-missing arguments to max; returning -Inf Execution halted