Ganador_Mundial

library(readxl)
library(ggplot2)
library(writexl)
library(sqldf)

## Loading required package: gsubfn

## Loading required package: proto

## Loading required package: RSQLite

library(gplots)

## 
## Attaching package: 'gplots'

## The following object is masked from 'package:stats':
## 
##     lowess

data <- read_excel("C:/Users/samora/Desktop/mundialdb.xlsx", 
                   sheet = "data")
variables <- names(data)
data.pairs <- subset(data, select = c(Pos_Cod, age, Caps, Goals, Probabilidad))
pairs(data.pairs)

correlation <- data.frame(cor(data.pairs))
#write_xlsx(correlation, path = "PollaCorelation.xlsx") #imprimiendo correlaciones

#Seleccion de pais
Country <- function(x){
  coun <- paste("SELECT Probabilidad, Pos_Cod, Goals, Caps, age FROM data WHERE Country = '",x,"'", sep = "")
  print(paste("buscando:  SELECT Probabilidad, Pos_Cod, Goals, Caps, age FROM data WHERE Country = '",x,"'"))
  country <- sqldf(coun)
  return(country)
}
Colombia <- Country("Colombia")

## [1] "buscando:  SELECT Probabilidad, Pos_Cod, Goals, Caps, age FROM data WHERE Country = ' Colombia '"

Japan <- Country("Japan")

## [1] "buscando:  SELECT Probabilidad, Pos_Cod, Goals, Caps, age FROM data WHERE Country = ' Japan '"

#Probabilidad de gol
Probability <- function(x){
  datos <- x$Probabilidad
  probabilidad_mayorCero <- data.frame(subset(datos, datos > 0))
  names(probabilidad_mayorCero) <- "Probabilidad"
  #________
  Intersect_GoalsenCaps <- intersect(x$Goals, x$Caps)
  Intersect_CapsenGoals <- intersect(x$Caps, x$Goals)
  #________
  #print(paste("La intersección de Goals en Caps es",Intersect_GoalsenCaps))
  #print(paste("La intersección de Caps en Goals es",Intersect_CapsenGoals))
  Intersect <- Intersect_GoalsenCaps/Intersect_CapsenGoals
  #print(paste("La intersección dividida es:",Intersect))
  #print(paste("La suma de intersecciones es:",Intersect))
  suma_probabilidades <- sum(probabilidad_mayorCero)
  #print(paste("La suma de probabilidades es:",suma_probabilidades))
  probabilidad_final <- suma_probabilidades-Intersect
  return(suma_probabilidades)
}
Probability(Colombia)

## [1] 2.560859

Probability(Japan)

## [1] 2.494827

#Probabilidades
Probabilidades <- function(x){
  datos <- x$Probabilidad
  probabilidad_mayorCero <- data.frame(subset(datos, datos > 0))
  names(probabilidad_mayorCero) <- "Probabilidad"
  #________
  Intersect_GoalsenCaps <- intersect(x$Goals, x$Caps)
  Intersect_CapsenGoals <- intersect(x$Caps, x$Goals)
  #________
  #print(paste("La intersección de Goals en Caps es",Intersect_GoalsenCaps))
  #print(paste("La intersección de Caps en Goals es",Intersect_CapsenGoals))
  Intersect <- Intersect_GoalsenCaps/Intersect_CapsenGoals
  #print(paste("La intersección dividida es:",Intersect))
  #print(paste("La suma de intersecciones es:",Intersect))
  suma_probabilidades <- sum(probabilidad_mayorCero)
  #print(paste("La suma de probabilidades es:",suma_probabilidades))
  probabilidad_final <- suma_probabilidades-Intersect
  if(probabilidad_final < 1 || probabilidad_final >0){
    #return(print(paste("La probabilidad de un gol es:",probabilidad_final)))#Personalizado
    #print("Las probabilidades de un gol es:")
    return(probabilidad_final)
  }
}
Probabilidades(Colombia)

## [1] 1.560859 1.560859

Probabilidades(Japan)

## [1]  1.494827182  2.094827182 -0.005172818

#Basada en explicar probabilidad de goles
linearRelationUno <- function(x){
  graf <- ggplot(data = x, aes(x=x$Pos_Cod, y=x$Probabilidad, colour="Probabilidad en Posición"))+geom_point()+geom_point(aes(x=x$Goals, y=x$Probabilidad, colour="Probabilidad en Goles"))+geom_point(aes(x=x$Caps, y=x$Probabilidad, colour="Probabilidad por partidos"))+geom_point(aes(x=x$age, y=x$Probabilidad, colour="Probabilidad por edad"))
  return(graf)
}
linearRelationUno(Colombia)

linearRelationUno(Japan)

#Ganador
ganador <- function(a,b,c,d){
  linearRelationUno(a)
  linearRelationUno(b)
  #print(paste("La suma de probabildades del país",c,"es:",Probability(a)))
  #print(paste("La suma de probabildades del país",d,"es:",Probability(b)))
  if(Probability(a)>Probability(b)){
    print(paste("El ganador entre ", c," y ", d," es", c,"con probabilidades de gol de:"))
    return(Probabilidades(a))
  }else
    print(paste("El ganador ", d," y ", c,"es",d,"con probabilidades de gol de:"))
    return(Probabilidades(b))
}
ganador(Colombia, Japan, "Colombia", "Japan")

## [1] "El ganador entre  Colombia  y  Japan  es Colombia con probabilidades de gol de:"

## [1] 1.560859 1.560859