andresAlvarado

def desencolar( self ):
    if self.cabeza:
        self.cabeza  = self.cabeza.obtenerSig()
        self.tamanio -= 1

andresAlvarado

library('ggplot2')

# Dataset column names and classes.
l_colnames   = c( 'game_no','stadium', 'team', 'x_cord', 'y_cord', 'desc' )
l_colClasses = c( 'numeric', 'character', 'character', 'numeric', 'numeric', 'character' )

# Load the dataset.
hip_data <- read.csv( file       = 'hitsPerGame.csv'
                    , header     = F  
                    , col.names  = l_colnames

andresAlvarado

library('ggplot2')

# Dataset column names and classes
l_colnames   = c( 'game_no','stadium', 'team', 'x_cord', 'y_cord', 'desc' )
l_colClasses = c( 'numeric', 'character', 'character', 'numeric', 'numeric', 'character' )

# Load the dataset
hip_data <- read.csv( file       = 'hitsPerGame.csv'
                    , header     = F  
                    , col.names  = l_colnames

andresAlvarado

library('ggplot2')

f_lanzar <- function( p_dardos )
{
  
  # Radio = 1.
  r      <- 1
  
  # Generar n puntos (x,y) por medio de una distribucion uniforme.
  x      <- runif( min = -1, max = 1, n = p_dardos )

andresAlvarado

library('ggplot2')

f_lanzar <- function( p_dardos )
{
  
  # Radio = 1.
  r      <- 1
  
  # Generar n puntos (x,y) por medio de una distribucion uniforme.
  x      <- runif( min = -1, max = 1, n = p_dardos )

andresAlvarado

library('ggplot2')

f_circulo <- function()
{
  # Generar 500 puntos de 0pi radianes a 2pi radianes,
  # lo cuales equivalen a 0 y 360 grados respectivamente.
  
  t  <- seq( from = 0, to = 2 * pi, length.out = 1000 )
  
  # Generar un circulo con ecuaciones parametricas

andresAlvarado

# Cargar librerias
library( package = 'ggplot2' )

# Leer dataset
d_historico <- read.table( file       = 'datafile'
                         , header     = T 
                         , sep        = ','
                         , colClasses = c('character','character','numeric')
                         )