# como funciona un dataframe

library(pryr)

# Construimos un dataframe
sampleData <- data.frame(nombre = c("Juan", "Lucia", "Pablo", "Paco", "Jesus"), 
                         apellido = c("Rodriguez", "Gonzalez", "García", "Cano",
                                      "Mendez"),
                         edad = runif(5) * 80, stringsAsFactors = F)
sampleData

# Asigno sampleData a otherData

# Creemos
otherData <- sampleData

# en que posición de memoria están sampleData y otherData

address(otherData)
address(sampleData)

# estan en la misma posición de memoria
# ahora tengo 2 dataframe

# hagamos algun cambio: sustituyo Juan por Jayden

otherData[1,"nombre"] <- "Jayden"
otherData
 # aparece Jaiden y no Juan. Pero veamos el archivo
# en sample data no ha cambiado, sigue siendo Juan

# ¿en que posición de memoria están?
address(otherData)
address(sampleData)


# cambiaron de posición en la memoria y se creo la nueva lista de punteros

# otro cambio, otra dirección de memoria

sampleData[1,"nombre"] <- "Luis"
address(otherData)

# se crea una nueva columna, igual que antes