U
    Hvf  ã                   @   sÖ   d dl Zd dlmZmZmZmZmZ d dlZd dlm	Z
 d dlmZ d dlmZmZmZmZ dd„ Zdd	„ Zd
d„ Zdd„ Zdd„ Zdd„ Zdd„ Zej dddg¡dd„ ƒZdd„ Zej ddddg¡dd „ ƒZdS )!é    N)Úassert_equalÚassert_array_equalÚassert_array_almost_equalÚassert_approx_equalÚassert_allclose)Úraises)Úxlogy)ÚmarginsÚexpected_freqÚchi2_contingencyÚassociationc                  C   sj  t  dg¡} t| ƒ}tt|ƒdƒ |d }t|t  dg¡ƒ t  dgg¡} t| ƒ\}}t  dgg¡}t  dgg¡}t||ƒ t||ƒ t  d¡ dd¡} t| ƒ\}}t  dgdgg¡}t  ddd	dd
dgg¡}t||ƒ t||ƒ t  d¡ ddd¡} t| ƒ\}}}t  dggdggg¡}t  dgdgdggg¡}t  ddddggg¡}t||ƒ t||ƒ t||ƒ d S )Né   r   é   é   é   é   é3   é   é
   é   é   é   é   é   éB   éÒ   é<   é\   é|   éH   éN   )ÚnpÚarrayr	   r   Úlenr   ZarangeZreshape)ÚaÚmZm0Úm1Z	expected0Z	expected1Úm2Z	expected2© r(   úF/tmp/pip-unpacked-wheel-96ln3f52/scipy/stats/tests/test_contingency.pyÚtest_margins   s2    





r*   c                  C   s®   t tdgƒt dg¡ƒ t ddgddggddgddggddgddggg¡} t| ƒ}t |t | ¡ƒ t dddgdddgg¡} t| ƒ}t dddgd	d	d
gg¡}t||ƒ d S )Nr   ç      ð?r   r   r   é   g      (@g      0@g      2@g      8@)r   r
   r!   r"   Z	ones_liker   )ÚobservedÚeÚcorrectr(   r(   r)   Útest_expected_freq+   s    4r0   c                  C   s¢   t  ddgddgg¡} t| dd\}}}}t|dƒ t|dƒ t|dƒ t| |ƒ t  dddg¡} t| dd\}}}}t|dƒ t|dƒ t|dƒ t| |ƒ d S )	Nr   r   F©Ú
correctiong        r+   r   r   )r!   r"   r   r   r   ©ÚobsZchi2ÚpÚdofÚexpectedr(   r(   r)   Útest_chi2_contingency_trivial8   s    






r8   c               	   C   s  t  dddgdddgdddgddd	ggd
ddgdddgdddgdddggg¡} t| ƒ\}}}}t|ddd t|dd
d t|dƒ t  ddgddggddgddgggddgddggd	dgddgggg¡} t| ƒ\}}}}t|dd
d t|dd
d t|dƒ d S )Nr   é"   é   é#   é   é   é    é	   r   r   é/   r   é   é   é   é!   é   g{®GáŠY@é   )Zsignificantg"„j,5È#=é   r   r   é   é   gj¼t“„!@g“©‚QIä?)r!   r"   r   r   r   r3   r(   r(   r)   Útest_chi2_contingency_RL   sL    ýýüÿ	
&ÿÿþÿÿþüÿ	rJ   c                  C   sâ   t  ddgddgg¡} t| ddd\}}}}t|dt| | | ƒ ¡  ƒ t| ddd\}}}}| t  d	d
gd
d	gg¡ }t|dt||| ƒ ¡  ƒ t  dddgdddgg¡} t| dd\}}}}t|dt| | | ƒ ¡  ƒ d S )Nr   r   éZ   zlog-likelihoodF)Úlambda_r2   r   Tg      à¿g      à?r   r   )rL   )r!   r"   r   r   r   Úsum)ÚcÚgr5   r6   r.   Zc_corrr(   r(   r)   Útest_chi2_contingency_g«   s    ÿÿrP   c                  C   s^   t  ddgddgg¡} ttt| ƒ t  ddgddgg¡} ttt| ƒ t  d¡} ttt| ƒ d S )Néÿÿÿÿr   r   r   r   )r   r   )r!   r"   Úassert_raisesÚ
ValueErrorr   Úempty)r4   r(   r(   r)   Útest_chi2_contingency_bad_args»   s    
rU   c                  C   s4   t  ddgddgg¡} t| ƒd }t|ddd d S )Ni%  r   r   r   r   gê-™—q=)Zrtol)r!   r"   r   r   )r-   r5   r(   r(   r)   Ú#test_chi2_contingency_yates_gh13875Ì   s    rV   r2   FTc                 C   s@   t  ddgddgg¡}t|| d}t|j|j|j|jf|ƒ d S )Nr   r   r1   )r!   r"   r   r   Z	statisticZpvaluer6   r
   )r2   r4   Úresr(   r(   r)   Útest_resultÔ   s    rX   c                   C   sz   t ttddgddggdƒ t ttddggddgggdƒ t ttddgddggdƒ t tttjddgd	dggtd
dƒ d S )Nr   r   r   r   ÚXÚcramerrQ   r   Údd)Zdtype)rR   rS   r   r!   r"   Úobjectr(   r(   r(   r)   Útest_bad_association_argsÛ   s     ÿr]   zstat, expected)rZ   gÀŽ¾ûÿ›·?)Z	tschuprowg:Ç°¼`Ú³?)Zpearsong!Ã2qÜÀ?c              	   C   sH   t  dddddgddddd	gd
dddd	gg¡}t|| d}t||ƒ d S )Nr   rB   r   r   r   rG   rA   rC   r=   r?   )r-   Úmethod)r!   r"   r   r   )Ústatr7   Zobs1r$   r(   r(   r)   Ú
test_assocç   s    þr`   )Znumpyr!   Znumpy.testingr   r   r   r   r   Zpytestr   rR   Zscipy.specialr   Zscipy.stats.contingencyr	   r
   r   r   r*   r0   r8   rJ   rP   rU   rV   ÚmarkZparametrizerX   r]   r`   r(   r(   r(   r)   Ú<module>   s,   _
þÿ