data <- read.csv("JND_summary.csv",header=T) #c_names <-c("observed", "expected") conspicuous = data[c(1:16),c(2:9)] cryptic = data[c(1:7),c(11:18)] UL_cons_obs_bright = conspicuous [,1] UL_cons_exp_bright = conspicuous [,2] LL_cons_obs_bright = conspicuous [,3] LL_cons_exp_bright = conspicuous [,4] UL_cons_obs_dim = conspicuous [,5] UL_cons_exp_dim = conspicuous [,6] LL_cons_obs_dim = conspicuous [,7] LL_cons_exp_dim = conspicuous [,8] UL_cryp_obs_bright = cryptic [,1] UL_cryp_exp_bright = cryptic [,2] LL_cryp_obs_bright = cryptic [,3] LL_cryp_exp_bright = cryptic [,4] UL_cryp_obs_dim = cryptic [,5] UL_cryp_exp_dim = cryptic [,6] LL_cryp_obs_dim = cryptic [,7] LL_cryp_exp_dim = cryptic [,8] wilcox.test(UL_cons_obs_bright, UL_cons_exp_bright, alternative = c("two.sided"), mu = 0, paired = TRUE, exact = NULL, correct = TRUE,conf.int = FALSE, conf.level = 0.95) wilcox.test(LL_cons_obs_bright, LL_cons_exp_bright, alternative = c("two.sided"), mu = 0, paired = TRUE, exact = NULL, correct = TRUE,conf.int = FALSE, conf.level = 0.95) wilcox.test(UL_cons_obs_dim, UL_cons_exp_dim, alternative = c("two.sided"), mu = 0, paired = TRUE, exact = NULL, correct = TRUE,conf.int = FALSE, conf.level = 0.95) wilcox.test(LL_cons_obs_dim, LL_cons_exp_dim, alternative = c("two.sided"), mu = 0, paired = TRUE, exact = NULL, correct = TRUE,conf.int = FALSE, conf.level = 0.95) wilcox.test(UL_cryp_obs_bright, UL_cryp_exp_bright, alternative = c("two.sided"), mu = 0, paired = TRUE, exact = NULL, correct = TRUE,conf.int = FALSE, conf.level = 0.95) wilcox.test(LL_cryp_obs_bright, LL_cryp_exp_bright, alternative = c("two.sided"), mu = 0, paired = TRUE, exact = NULL, correct = TRUE,conf.int = FALSE, conf.level = 0.95) wilcox.test(UL_cryp_obs_dim, UL_cryp_exp_dim, alternative = c("two.sided"), mu = 0, paired = TRUE, exact = NULL, correct = TRUE,conf.int = FALSE, conf.level = 0.95) wilcox.test(LL_cryp_obs_dim, LL_cryp_exp_dim, alternative = c("two.sided"), mu = 0, paired = TRUE, exact = NULL, correct = TRUE,conf.int = FALSE, conf.level = 0.95)