library(rjson)
library(RMySQL)

#c <-odbcConnect("local","root")
#c = dbConnect(MySQL(), user='root', password='', dbname='local', host='localhost')
c = dbConnect(MySQL(), user='consultasgc', password='WvTX800', dbname='gc', host='localhost')

#res <- sqlQuery(c, 'select * from indicadoras_cartera')
res=dbSendQuery(c,'select * from indicadoras_cartera_panama')
res = fetch(res, n=-1)

##Indicadora 1
mod1=lm(recuperado ~ ind_1, data=res)
a1=anova(mod1)
f1=a1$"F value"[1]
p1=a1$`Pr(>F)`[1]

##Indicadora 2
mod2=lm(recuperado ~ ind_2, data=res)
a2=anova(mod2)
f2=a2$`F value`[1]
p2=a2$`Pr(>F)`[1]


#Indicadora 3
mod3=lm(recuperado ~ ind_3, data=res)
a3=anova(mod3)
f3=a3$`F value`[1]
p3=a3$`Pr(>F)`[1]


##Indicadora 4
mod4=lm(recuperado ~ ind_4, data=res)
a4=anova(mod4)
f4=a4$`F value`[1]
p4=a4$`Pr(>F)`[1]


##Indicadora 5
mod5=lm(recuperado ~ ind_5, data=res)
a5=anova(mod5)
f5=a5$`F value`[1]
p5=a5$`Pr(>F)`[1]

f=c(f1,f2,f3,f4,f5)
p=c(p1,p2,p3,p4,p5)

cat(toJSON(f))
cat(toJSON(p))