def funcion(dato,variable,caso,opciones):
from rpy import r #pylint: disable=import-error
diccionario={}
primertermino=variable[0]
segundotermino=variable[1]
condicion=primertermino[0]+"="+primertermino[1] #La condicion (ser miope por ejemplo)
condiciongrupo1=segundotermino[0]+"="+segundotermino[1]
totalcondicion1=len(dato.query(segundotermino[0],caso,condicion,condiciongrupo1))
totalsincondicion1=len(dato.query(segundotermino[0],caso,condiciongrupo1))
#proporcion1=totalcondicion1/totalsincondicion1
condiciongrupo2=segundotermino[0]+"="+segundotermino[2]
totalcondicion2=len(dato.query(segundotermino[0],caso,condicion,condiciongrupo2))
totalsincondicion2=len(dato.query(segundotermino[0],caso,condiciongrupo2))
#proporcion1=totalcondicion2/totalsincondicion2
vector1=[totalcondicion1,totalcondicion2]
vector2=[totalsincondicion1,totalsincondicion2]
if opciones[u"Hipótesis alternativa"]==">":
lateral="greater"
elif opciones[u"Hipótesis alternativa"]=="<":
lateral="less"
else:
lateral="two.sided"
diccionario["elresultado"]=r.prop_test(vector1,vector2,alt=lateral,conf_level=float(opciones[u"Significación"])/100)
diccionario["confianza"]=float(opciones[u"Significación"])/100
return diccionario
def funcion(dato, variable, caso, opciones):
from rpy import r
diccionario = {}
lavar=variable[0]
condicion=variable[1]
micondicion=lavar+"="+condicion #La cadena quedara formada como PESO=75
lista1=dato.query(lavar,caso,micondicion)
lista2=dato.query(lavar,caso) #Lista sin condicion
if opciones[u"Hipótesis alternativa"]==">":
lateral="greater"
elif opciones[u"Hipótesis alternativa"]=="<":
lateral="less"
else:
lateral="two.sided"
diccionario=r.prop_test(len(lista1),len(lista2),alternative=lateral,p=float(opciones["Proporcion objetivo"]),conf_level=float(opciones[u"Significación"])/100)
diccionario["confianza"]=float(opciones[u"Significación"])/100
return diccionario
