나는 스크립트를 사용하여 데이터를 테스트 wilcox.test
하지만 결과를 얻었을 때 모든 p 값은 1과 같습니다. 데이터를 테스트하기 전에 지터를 사용할 수있는 일부 웹 사이트에서 읽었습니다. 나는 이것을했고 이제는 받아 들일만한 결과를 얻었습니다. 이것을하는 것이 잘못입니까?
test<- function(column,datacol){
library(ggplot2)
t=read.table("data.txt", stringsAsFactors=FALSE)
uni=unique(c(t$V9))
for (xp in uni) {
for(yp in uni) {
testx <- subset(t, V9==xp)
testy <- subset(t, V9==yp)
zz <- wilcox.test(testx[[datacol]],jitter(testy[[datacol]]))
p.value <- zz$p.value
}
}
}
이것은의 출력입니다
dput(head(t))
structure(list(V1 = c(0.268912,
0.314681, 0.347078, 0.286945,
0.39562, 0.282182), V2 = c(0.158921, 0.210526, 0.262024, 0.322006,
0.133417, 0.283025), V3 = c(0.214082, 0.166895, 0.132547, 0.147361,
0.09174, 0.169093), V4 = c(0.358085, 0.307898, 0.258352, 0.243688,
0.379224, 0.2657), V5= c(-0.142223, 0.010895, 0.14655,
0.08152, 0.02116, 0.030083), V6 = c(0.096408, -0.091896,
-0.331229, -0.446603, -0.088493, -0.262037), V7` = c(1.680946,
1.649559, 1.534401, 1.130529, 3.441356, 1.211815), V8 = c("NC_000834", "NC_000844",
"NC_000845", "NC_000846", "NC_000857",
"NC_000860" ), V9 = c("Chordata",
"Arthropoda", "Chordata", "Chordata",
"Arthropoda", "Chordata"), V10 =
c("???:???", "Diplostraca",
"???:???", "Rheiformes", "Diptera",
"Salmoniformes"), V11 = c("???:???",
"Branchiopoda", "Mammalia", "Aves",
"Insecta", "Actinopterygii" )), .Names
= c("V1", "V2", "V3", "V4", "V5", "V6", "V7",
"V8", "V9", "V10",
"V11"), row.names = c(NA, 6L),
class = "data.frame")
데이터가 매우 커서 시작한 스레드이므로이 작업을 수행하는 것이 잘못 될 수 있다고했습니다.
참고이 질문은 tex.SE에서 온 것입니다 : 라텍스 테이블 내에서 PDFcontain R 출력 생성
dput()
를 수행 할 필요가없는 매우 유용한 기능을 제공 할 때 더욱 그렇습니다 . 도움을 받으려면 재현 가능한 예를 제공하십시오.