Untitled

<-

library(readxl) dataPeru <- read_excel(“C:/Users/n422/Downloads/dataPeru.xlsx”) data <- dataPeru rm(dataPeru)

modelo1=formula(buenEstado~contribuyentesSunat+peaOcupada) reg1=lm(modelo1,data=data) summary(reg1)

modelo2=formula(peaOcupada~contribuyentesSunat+buenEstado) reg2=lm(modelo2,data=data) summary(reg2)