a
    /'Øa  ã                   @   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dd„ Zej dg d¢¡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   s^  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  g d¢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  g d¢gg¡}t||ƒ t||ƒ t||ƒ d S )Né   r   é   é   é   é   é3   )r   é   é
   r   é   é   é   é   é   éB   éÒ   é<   é\   é|   )r   r   éH   éN   )ÚnpÚarrayr	   r   Úlenr   ZarangeZreshape)ÚaÚmZm0Zm1Z	expected0Z	expected1Zm2Z	expected2© r&   úAlib/python3.9/site-packages/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 g d¢g d¢g¡} t| ƒ}t g d¢g d¢g¡}t||ƒ d S )	Nr   ç      ð?r   r   )r   r   é   )r*   r*   r*   )ç      (@r+   g      0@)ç      2@r,   g      8@)r   r
   r!   r"   Z	ones_liker   )ÚobservedÚeZcorrectr&   r&   r'   Útest_expected_freq+   s    4r/   c                  C   s    t  ddgddgg¡} t| dd\}}}}t|dƒ t|dƒ t|dƒ t| |ƒ t  g d¢¡} t| dd\}}}}t|dƒ t|dƒ t|dƒ t| |ƒ d S )	Nr   r   F)Ú
correctiong        r)   )r   r   r   r   )r!   r"   r   r   r   ©ÚobsZchi2ÚpÚdofÚexpectedr&   r&   r'   Útest_chi2_contingency_trivial8   s    






r6   c                  C   sô   t  g d¢g d¢g d¢g d¢gg d¢g d¢g d¢g d¢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 )N)r   é"   é   )é#   é   é   )r   é    é	   )r   r   r   )r   é/   r;   )r7   r   é   )r?   é   é   )r=   é!   é   g{®GáŠY@é   )Zsignificantg"„j,5È#=r   é   r   r;   r   r   r8   é   é   r   gj¼t“„!@g“©‚QIä?)r!   r"   r   r   r   r1   r&   r&   r'   Útest_chi2_contingency_RL   sL    ýýüÿ	
&ÿÿþÿÿþüÿ	rH   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  g d¢g d¢g¡} t| dd\}}}}t|dt| | | ƒ ¡  ƒ d S )Nr   r   éZ   zlog-likelihoodF)Úlambda_r0   r   Tg      à¿g      à?)r   r   r   )r   r   r   )rJ   )r!   r"   r   r   r   Úsum)ÚcÚgr3   r4   r.   Zc_corrr&   r&   r'   Útest_chi2_contingency_g«   s    ÿÿrN   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)r2   r&   r&   r'   Útest_chi2_contingency_bad_args»   s    
rS   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-   r3   r&   r&   r'   Ú#test_chi2_contingency_yates_gh13875Ì   s    rT   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ÚcramerrO   r   Zdd)Zdtype)rP   rQ   r   r!   r"   Úobjectr&   r&   r&   r'   Útest_bad_association_argsÔ   s    ÿrX   zstat, expected))rV   gÀŽ¾ûÿ›·?)Z	tschuprowg:Ç°¼`Ú³?)Zpearsong!Ã2qÜÀ?c                 C   s6   t  g d¢g d¢g d¢g¡}t|| d}t||ƒ d S )N)r   r@   r   r   r   )rE   r   r?   rA   r;   )r=   r   r   r   r;   )r-   Úmethod)r!   r"   r   r   )Ústatr5   Zobs1r$   r&   r&   r'   Ú
test_assocà   s    
þr[   )Znumpyr!   Znumpy.testingr   r   r   r   r   Zpytestr   rP   Zscipy.specialr   Zscipy.stats.contingencyr	   r
   r   r   r(   r/   r6   rH   rN   rS   rT   rX   ZmarkZparametrizer[   r&   r&   r&   r'   Ú<module>   s"   _ÿ