Skip to main content
se añadieron 11 caracteres en el cuerpo
Origen Enlace
jbkunst
  • 791
  • 4
  • 9
generar_seq_randomgen_num <- function() {
  r1 <- c(1, 3, 2, 1, 2, sample(1:4, 1, replace = T),
}

gen_num()
#> 4,[1] sample3
gen_num(1:4,)
#> 1,[1] replace4

generar_seq_random =<- Tfunction(), {
  r1 <- c(1, 3, sample(1:42, 1, replace =2, Tgen_num(), sample(1:4, 1gen_num(), replace = T)3, 2gen_num(), samplegen_num(1:4), 
      12, replace = Tgen_num(), 1, samplegen_num(1:4, 1, replace = T), 3)
  r1
}

# es una funcion :D
generar_seq_random()
#>  [1] 1 3 2 1 2 3 4 3 3 2 2 2 1 1 4 3

generar_seq_random()
#>  [1] 1 3 2 1 2 3 4 2 3 1 4 2 4 1 3 3

# replicamos la funcion 100 veces
res <- replicate(100, generar_seq_random())

# trasponemos por que la entrega traspuesta
res <- t(res)

# 100 secuencias de largo 16
dim(res)
#> [1] 100  16

head(res)
#>      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13]
#> [1,]    1    3    2    1    2    4    4    4    3     1     2     2     3
#> [2,]    1    3    2    1    2    1    4    2    3     4     4     2     1
#> [3,]    1    3    2    1    2    1    4    2    3     1     3     2     3
#> [4,]    1    3    2    1    2    3    4    1    3     3     1     2     1
#> [5,]    1    3    2    1    2    4    4    1    3     4     3     2     4
#> [6,]    1    3    2    1    2    2    4    1    3     3     3     2     4
#>      [,14] [,15] [,16]
#> [1,]     1     1     3
#> [2,]     1     3     3
#> [3,]     1     4     3
#> [4,]     1     1     3
#> [5,]     1     4     3
#> [6,]     1     1     3
generar_seq_random <- function() {
  r1 <- c(1, 3, 2, 1, 2, sample(1:4, 1, replace = T), 4, sample(1:4, 1, replace = T), 
    3, sample(1:4, 1, replace = T), sample(1:4, 1, replace = T), 2, sample(1:4, 
      1, replace = T), 1, sample(1:4, 1, replace = T), 3)
  r1
}

# es una funcion :D
generar_seq_random()
#>  [1] 1 3 2 1 2 3 4 3 3 2 2 2 1 1 4 3

generar_seq_random()
#>  [1] 1 3 2 1 2 3 4 2 3 1 4 2 4 1 3 3

# replicamos la funcion 100 veces
res <- replicate(100, generar_seq_random())

# trasponemos por que la entrega traspuesta
res <- t(res)

# 100 secuencias de largo 16
dim(res)
#> [1] 100  16

head(res)
#>      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13]
#> [1,]    1    3    2    1    2    4    4    4    3     1     2     2     3
#> [2,]    1    3    2    1    2    1    4    2    3     4     4     2     1
#> [3,]    1    3    2    1    2    1    4    2    3     1     3     2     3
#> [4,]    1    3    2    1    2    3    4    1    3     3     1     2     1
#> [5,]    1    3    2    1    2    4    4    1    3     4     3     2     4
#> [6,]    1    3    2    1    2    2    4    1    3     3     3     2     4
#>      [,14] [,15] [,16]
#> [1,]     1     1     3
#> [2,]     1     3     3
#> [3,]     1     4     3
#> [4,]     1     1     3
#> [5,]     1     4     3
#> [6,]     1     1     3
gen_num <- function() {
  sample(1:4, 1, replace = T)
}

gen_num()
#> [1] 3
gen_num()
#> [1] 4

generar_seq_random <- function() {
  r1 <- c(1, 3, 2, 1, 2, gen_num(), 4, gen_num(), 3, gen_num(), gen_num(), 
    2, gen_num(), 1, gen_num(), 3)
  r1
}

# es una funcion :D
generar_seq_random()
#>  [1] 1 3 2 1 2 3 4 3 3 2 2 2 1 1 4 3

generar_seq_random()
#>  [1] 1 3 2 1 2 3 4 2 3 1 4 2 4 1 3 3

# replicamos la funcion 100 veces
res <- replicate(100, generar_seq_random())

# trasponemos por que la entrega traspuesta
res <- t(res)

# 100 secuencias de largo 16
dim(res)
#> [1] 100  16

head(res)
#>      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13]
#> [1,]    1    3    2    1    2    4    4    4    3     1     2     2     3
#> [2,]    1    3    2    1    2    1    4    2    3     4     4     2     1
#> [3,]    1    3    2    1    2    1    4    2    3     1     3     2     3
#> [4,]    1    3    2    1    2    3    4    1    3     3     1     2     1
#> [5,]    1    3    2    1    2    4    4    1    3     4     3     2     4
#> [6,]    1    3    2    1    2    2    4    1    3     3     3     2     4
#>      [,14] [,15] [,16]
#> [1,]     1     1     3
#> [2,]     1     3     3
#> [3,]     1     4     3
#> [4,]     1     1     3
#> [5,]     1     4     3
#> [6,]     1     1     3
Origen Enlace
jbkunst
  • 791
  • 4
  • 9

Una opción sería crear una función tal que genere una secuencia aleatoria como la que necesitas y luego utilizar la función replicate pare generarla las veces que necesitas:


generar_seq_random <- function() {
  r1 <- c(1, 3, 2, 1, 2, sample(1:4, 1, replace = T), 4, sample(1:4, 1, replace = T), 
    3, sample(1:4, 1, replace = T), sample(1:4, 1, replace = T), 2, sample(1:4, 
      1, replace = T), 1, sample(1:4, 1, replace = T), 3)
  r1
}

# es una funcion :D
generar_seq_random()
#>  [1] 1 3 2 1 2 3 4 3 3 2 2 2 1 1 4 3

generar_seq_random()
#>  [1] 1 3 2 1 2 3 4 2 3 1 4 2 4 1 3 3

# replicamos la funcion 100 veces
res <- replicate(100, generar_seq_random())

# trasponemos por que la entrega traspuesta
res <- t(res)

# 100 secuencias de largo 16
dim(res)
#> [1] 100  16

head(res)
#>      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13]
#> [1,]    1    3    2    1    2    4    4    4    3     1     2     2     3
#> [2,]    1    3    2    1    2    1    4    2    3     4     4     2     1
#> [3,]    1    3    2    1    2    1    4    2    3     1     3     2     3
#> [4,]    1    3    2    1    2    3    4    1    3     3     1     2     1
#> [5,]    1    3    2    1    2    4    4    1    3     4     3     2     4
#> [6,]    1    3    2    1    2    2    4    1    3     3     3     2     4
#>      [,14] [,15] [,16]
#> [1,]     1     1     3
#> [2,]     1     3     3
#> [3,]     1     4     3
#> [4,]     1     1     3
#> [5,]     1     4     3
#> [6,]     1     1     3