chisq.test가 루프에있을 때 결과를 출력하지 않습니다.

Question

코드가 무엇을하는지 정확히 설명 할 필요가 없다고 생각합니다.

 Chi-squared test for given probabilities 

data: observed 
X-squared = 185912, df = 5, p-value < 2.2e-16 

하지만 루프에서 테스트를 할 때, 예상되는 결과가

표시되지 않습니다 점은 루프 외부 chisq.test을 수행하는 동안, 나는이 같은 결과 (예상)을 얻을 수 있다는 것입니다

total <- dim(crs$dataset_init)[1] 
expected.fr <- cl.popul/total 

for (i in 1:dim(cl.vs.Onerall)[1]) { 
     if (cl.vs.Onerall[i,1] > 0) { 
      observed <- cl.vs.Onerall[i,2:(clust_no + 1)] 

      print(rownames(cl.vs.Onerall)[i]) 
      chisq.test(observed, p=expected.fr) 
      print("------------------------------") 
    } 
} 

모든 아이디어를 매우 높이 평가할 것입니다.

Answer 1

의견에 제안 된대로 print을 사용하여 테스트 결과가 콘솔에 인쇄되도록하십시오. chisquare 테스트의 줄 외에 나머지 코드는 동일하게 유지되어야합니다.

total <- dim(crs$dataset_init)[1] 
expected.fr <- cl.popul/total 

for (i in 1:dim(cl.vs.Onerall)[1]) { 
     if (cl.vs.Onerall[i,1] > 0) { 
      observed <- cl.vs.Onerall[i,2:(clust_no + 1)] 

      print(rownames(cl.vs.Onerall)[i]) 
      print(chisq.test(observed, p=expected.fr)) # edited line 
      print("------------------------------") 
    } 
}