library(parallel)
cl <- makeCluster(3)
cl

# veamos si las conexiones están activas
showConnections()

# si, siguen activas. Ahora usemos stopCluster
stopCluster(cl)

# veamos si las conexiones están activas
showConnections()
# ya no están activas. Es un cluster simple, se limpia con stopCluster()
# para cluster más complicados es recomendable usar rm(cl)

# rm(cl) elimina todos los objetos del entorno
library(parallel)
cl <- makeCluster(3)
cl
rm(cl)

# veamos si las conexiones están activas
showConnections()

# Todas cerradas


# rm() permite borrar objetos en la memoria

# Creamos un vector
vec <- c(1, 2, 3, 4)
vec

rm(vec)
# Creamos una lista
list1 = list("Number" = c(1, 2, 3),
             "Characters" = c("a", "b", "c"))
list1

# Creamos una matriz
mat <- matrix(c(1:9), 3, 3)
mat

rm(mat)
# Usamos la función rm()

rm(ist1)
# Con ls() chequeamos el
# objeto lista
ls()

# está limpio

rm(cl)