search

jpcaveiro / rmdmoodle

rmdmoodle
MIT License
0 stars 0 forks source link

dois modos #45

Open jpcaveiro opened 5 months ago

jpcaveiro commented 5 months ago

Modo planeamento

# questão

Desenvolver código e preencher listas ou vectores de contextos, por exemplo, `situacao[var]` . 
Eventualmente usar geradores aleatórios as prevendo todas as situações (ou quase todas).

## variante `r (var <-1)`

Usar `r situacao[1]`

## variante 2

Usar `r situacao[2]`

Modo aleatório total

# questão

Testar o código gerador totalmente aleatorizado que será replicado em cada variante:

"""r
# teste do codigo
situacao <- rnorm(10, 0, 9)
"""

O `set.seed()` deve ser usado aqui para as variantes ficarem fixas 
com o que for exportado para o moodle:

"""r
set.seed(19)
"""

## variante `r (var <-1)`

"""r
situacao <- rnorm(10, 0, 9)
"""

Usar `r situacao`  (sem usar [1]) 

## variante 2

"""r
situacao <- rnorm(10, 0, 9)
"""

Usar `r situacao`  (sem usar [1])
jpcaveiro commented 5 months ago

Se VARCOUNT existe e não há inteiro no final de "..." então é um exercício planeado. Se VARCOUNT não existe mas há inteiro no final de "..." então é aleatório. Se VARCOUNT não existe e não há inteiro no final de "..." alerta o utilizador.

# c() produces the same as planned_ex()
rmdexam("2022-2023-Teste2-turno1.Rmd", # nome do teste, para um turno, em Rmd
        random_ex(set.seed = 10, varcount = 90, "c2-TLC-acacias.Rmd", "CC02", "tlc02"),    # Q 1
        planned_ex("c3-zinterval.Rmd", "ic01","interp01","amp01","estim-ic-th01","Prop-ic-th02"), # Q 2
        c("c3-proptest.Rmd","prop01","th01","Tobs01","concl01"), # Q 3.1
        c("c4-independentes.Rmd","fisher01","ttest01"),               # Q 3.2
        c("c4-anova-1fator-com-dados-Turno1-4-3.Rmd","id01","concept03","concl01","tab01"), # Q 4.1
        c("c4-anova-1f-cm.Rmd","bonf01")                                                    # Q 4.2
        )
jpcaveiro commented 5 months ago 
#' Ver issue:
#' https://github.com/jpcaveiro/rmdmoodle/issues/45

#' Escrever `exer2rmdstring <- function(...)` mas como sendo
#' `random_ex(ex_seed = 10, varcount = 90, "c2-TLC-acacias.Rmd", "CC02", "tlc02")`
#' para produzir enunciados estilo rexams (totalmente aleatorizados).
#'
#' Ver como implementar com
#' `random_ex <- function(...)` para capturar e analisar os parâmetros como
#' `ex_seed = 10` ou `varcount = 90` pois são optionais.