library("tcltk") #paquete intercativo para directorio


setwd(tk_choose.dir(, "Elegir Directorio"))

library(stats)

acta1 <- read.csv("~/Dropbox/Aux. Est. Comp./acta1.csv") # leer y guarda archivo en data frame
acta2 <- read.csv("~/Dropbox/Aux. Est. Comp./acta2.csv")

acta1 <- read.delim("~/Dropbox/Aux. Est. Comp./acta1.txt")
acta2 <- read.delim("~/Dropbox/Aux. Est. Comp./acta2.txt")


#correlación

pairs(acta1)

colnames(acta1)<-c("lista","c1","c2","c3","ex","nf")

pairs(acta1[2:6])


nf=as.matrix(acta1[1:100,6])
ex=as.matrix(acta1[1:100,5])
c3=as.matrix(acta1[1:100,4])
c2=as.matrix(acta1[1:100,3])
c1=as.matrix(acta1[1:100,2])

ex<-as.numeric(ex)
nf<-as.numeric(nf)
c3<-as.numeric(c3)
c2<-as.numeric(c2)
c1<-as.numeric(c1)

cor(c1,c2)

cor(c1,c2,use="complete.obs")

cor(c1,c2,use="na.or.complete")

acta1<-matrix(c(c1,c2,c3,ex,nf),nrow=100,ncol=5)

cor(acta1)

colnames(acta1)<-c("c1","c2","c3","ex","nf")

cor(acta1,use="complete.obs")

cor(acta1,use="complete.obs",method="spearman")

cor(acta1,use="complete.obs",method="kendall")

#Regresion Lineal Multiple, niveles de confianza

fit <- lm(nf ~ c1+c2+c3+ex,na.action=na.omit)

summary(fit)

confint(fit)

confint(fit,level=0.9)

confint(fit,level=0.99)