macierz_1 <- matrix(nrow = 10, ncol = 10)
set.seed = 123
macierz_1[,] <- runif(n = 10)

srodowisko_1 <- new.env()
srodowisko_1$macierz_1 <- macierz_1

Funkcja <- function(x){
  x$macierz_2 <- x$macierz_1
  .GlobalEnv$macierz_3 <- x$macierz_1
  return(NULL)
}
Funkcja(srodowisko_1)