Homec4science
Diffusion Numerical Data For Moodle (main) Browse

NumDataMoodle/doc/NumDataMoodle.tex
34574d7ce4f2main

Last Change
Raw File

NumDataMoodle.tex
View Options

% !Rnw weave = knitr
% opts_knit(self.contained=FALSE)
\documentclass[handout]{beamer}\usepackage[]{graphicx}\usepackage[]{xcolor}
% maxwidth is the original width if it is less than linewidth
% otherwise use linewidth (to make sure the graphics do not exceed the margin)
\makeatletter
\def\maxwidth{ %
\ifdim\Gin@nat@width>\linewidth
\linewidth
\else
\Gin@nat@width
\fi
}
\makeatother
\definecolor{fgcolor}{rgb}{0.345, 0.345, 0.345}
\newcommand{\hlnum}[1]{\textcolor[rgb]{0.686,0.059,0.569}{#1}}%
\newcommand{\hlsng}[1]{\textcolor[rgb]{0.192,0.494,0.8}{#1}}%
\newcommand{\hlcom}[1]{\textcolor[rgb]{0.678,0.584,0.686}{\textit{#1}}}%
\newcommand{\hlopt}[1]{\textcolor[rgb]{0,0,0}{#1}}%
\newcommand{\hldef}[1]{\textcolor[rgb]{0.345,0.345,0.345}{#1}}%
\newcommand{\hlkwa}[1]{\textcolor[rgb]{0.161,0.373,0.58}{\textbf{#1}}}%
\newcommand{\hlkwb}[1]{\textcolor[rgb]{0.69,0.353,0.396}{#1}}%
\newcommand{\hlkwc}[1]{\textcolor[rgb]{0.333,0.667,0.333}{#1}}%
\newcommand{\hlkwd}[1]{\textcolor[rgb]{0.737,0.353,0.396}{\textbf{#1}}}%
\let\hlipl\hlkwb
\usepackage{framed}
\makeatletter
\newenvironment{kframe}{%
\def\at@end@of@kframe{}%
\ifinner\ifhmode%
\def\at@end@of@kframe{\end{minipage}}%
\begin{minipage}{\columnwidth}%
\fi\fi%
\def\FrameCommand##1{\hskip\@totalleftmargin \hskip-\fboxsep
\colorbox{shadecolor}{##1}\hskip-\fboxsep
% There is no \\@totalrightmargin, so:
\hskip-\linewidth \hskip-\@totalleftmargin \hskip\columnwidth}%
\MakeFramed {\advance\hsize-\width
\@totalleftmargin\z@ \linewidth\hsize
\@setminipage}}%
{\par\unskip\endMakeFramed%
\at@end@of@kframe}
\makeatother
\definecolor{shadecolor}{rgb}{.97, .97, .97}
\definecolor{messagecolor}{rgb}{0, 0, 0}
\definecolor{warningcolor}{rgb}{1, 0, 1}
\definecolor{errorcolor}{rgb}{1, 0, 0}
\newenvironment{knitrout}{}{} % an empty environment to be redefined in TeX
\usepackage{alltt}
%\documentclass{beamer}
\usetheme{Boadilla}
\usecolortheme{seahorse}
\input{mydefinitions.tex}
%\usepackage[style=authoryear,sorting=ynt]{biblatex}
\addbibresource{./source/NumDataMoodle.bib}
% Set the language
\newboolean{enversion}
\setboolean{enversion}{true}
\ifenversion
\selectlanguage{english}
\else
\selectlanguage{french}
\fi
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\ifenversion
\title{Numerical Data and Moodle}
\else
\title{Données numériques et Moodle}
\fi
\author{Sacha Varone}
\date{\the\year}
\institute[HES-SO]{\href{https://www.hes-so.ch/}{University of Applied Sciences and Arts Western Switzerland (HES-SO)},\\
\href{https://www.hesge.ch/heg/}{Haute \'Ecole de Gestion de Genève}}
\titlegraphic{\includegraphics[width=2cm]{HES_SO_Logo_RGB.png}
\hspace*{4.75cm}~%
\includegraphics[width=2cm]{heg-logo-haute-res-transp.png}
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\IfFileExists{upquote.sty}{\usepackage{upquote}}{}
\begin{document}
\frame[plain]{\titlepage}
\ifenversion
\input{source/en_course.tex}
% !TeX root = ../teach.Moodle.Latex.R
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% %%
%% Pastille %%
%% Intro %%
%% %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\section{Introduction}
\begin{frame}
\frametitle{The problem}
\begin{beamerboxesrounded}%
[scheme=CommandeOrange, shadow=true]
{The facts}
Moodle in its standard version does not allow you to use advanced functions with randomly generated data to formulate questions for an exercise.
\end{beamerboxesrounded}
\vspace{3mm}
\begin{beamerboxesrounded}%
[scheme=CommandeGrise, shadow=false]
{Exercise}
Try calculating the variance of a set of randomly generated numbers in a question in the "Test" activity.
\end{beamerboxesrounded}
\begin{itemize}
\item How can we design this type of question, or more advanced ones?
\item How can we generalize the production of questions with distinct data for ?
\begin{itemize}
\item training exercises: identical exercises but with distinct numerical parameters (numbers, functions, etc.)
\item exam : different values for each student (to minimize the risk of cheating)
\end{itemize}
\end{itemize}
\end{frame}
\begin{frame}
\frametitle{\includegraphics[scale=0.04]{idea.png}}
\begin{beamerboxesrounded}%
[scheme=CommandeVerte, shadow=true]
{The process}
\begin{enumerate}
\item Outsource the design :\
\begin{itemize}
\item random number generation
\item question design
\item calculation of answers
\item design of answer keys
\end{itemize}
\item Generate a file that can be imported by Cyberlearn
(Question bank)
\item Moodle: design a "Test" activity
\end{enumerate}
\end{beamerboxesrounded}
\vspace{5mm}
{\scriptsize\it Image from \href{https://pixabay.com/}{https://pixabay.com/}}
\end{frame}
\begin{frame}
\frametitle{Requirements}
\begin{itemize}
\item Moodle : building an activity \href{https://docs.moodle.org/4x/fr/Test}{"Test"}
\item Desirable knowledge:
\begin{itemize}
\item \href{https://www.r-project.org/}{R} : basic notions of language
\item \href{https://www.latex-project.org/}{\LaTeX} : basic notions
\end{itemize}
\end{itemize}
\end{frame}
% !TeX root = ../teach.Moodle.Latex.R
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% %%
%% Pastille %%
%% Solution %%
%% %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\section{Solution}
\begin{frame}
\frametitle{Work recognition}
The solution is entirely based on the R package\\ \href{https://cran.r-project.org/web/packages/exams/index.html}{exams: Automatic Generation of Exams in R}\\[3mm]
{\it
sources:
\begin{itemize}
\item \cite{Zeileis2009}
\item \cite{Zeileis2014}
\item see also: \cite{zeileis_rexams_nodate}
\end{itemize}
}
\centerline{Big thanks to the author: Zeileis, Achim for his work!}
\end{frame}
\begin{frame}[fragile]
\frametitle{Required tools}
\begin{columns}[T] % align columns
\begin{column}{.48\textwidth}
Either
\vspace{5mm}
\begin{enumerate}
\item A \href{https://www.latex-project.org/}{\LaTeX} version installed on your laptop or via a browser
\begin{itemize}
\item Windows : \href{https://miktex.org/}{MiKTex} or \href{https://tug.org/texlive/}{TeX Live}
\item Linux : \href{https://tug.org/texlive/}{TeX Live}
\item Mac : \href{https://tug.org/mactex/}{MacTeX}
\end{itemize}
\item The software \href{https://www.r-project.org/}{R}
\end{enumerate}
\end{column}%
\hfill%
\pause
\begin{column}{.48\textwidth}
Or simply via
\vspace{5mm}
\begin{beamerboxesrounded}%
[scheme=CommandeVerte, shadow=true]
{A browser}
\href{https://posit.cloud}{Posit Cloud} (ex RStudio Cloud)
\end{beamerboxesrounded}
\vspace{5mm}
\begin{beamerboxesrounded}%
[scheme=CommandeGrise, shadow=false]
{Exercice}
Create an account on \href{https://posit.cloud}{Posit Cloud} if you don't have \LaTeX and R.
\end{beamerboxesrounded}
\end{column}%
\end{columns}
\end{frame}
\begin{frame}
\frametitle{The proposed solution}
\begin{beamerboxesrounded}%
[scheme=CommandeVerte, shadow=false]
{The template}
The \href{}{template}, licensed under \href{https://creativecommons.org/licenses/by-sa/4.0/}{\ccbysa}, contains the possible question options.
The compressed file contains everything you need, according to the structure below.
\end{beamerboxesrounded}
\dirtree{%
.1 ..
.2 {\it\textcolor{vertmoyen}{exo.Moodle.template.R}}.
.2 {\it exo.Moodle.template.Rproj}.
.2 \faIcon[regular]{folder-open} output.
.2 \faIcon[regular]{folder-open} statement.
.3 {\it\textcolor{vertmoyen}{prefixe\_template\_specific.Rnw}}.
.2 \faIcon[regular]{folder-open} data.
.3 {\it givendata.csv}.
.2 \faIcon[regular]{folder-open} fig.
.3 {\it cc-by-sa.png}.
.2 \faIcon[regular]{folder-open} R.
.3 {\it\textcolor{vertmoyen}{prefixe\_template\_specific.R}}.
}
\end{frame}
\begin{frame}
\frametitle{The files}
\begin{itemize}
\pause
\item Statement: ./statement/*.Rnw\\
It contains the statement, questions, solutions and global feedback (= the answer key).
\pause
\item R script: ./R/*.R\\
Allows you to generate random data or read a static file. It also contains all the calculations you wish to perform.
\pause
\item Generated data: ./data/*.csv\\
The format {\it csv} is that of a tabular file.\\
You might also generate other file types (i.e. {\it *.txt}, {\it *.xlsx}, ...)
\pause
\item Figures: ./fig/*.*\\
You can generate several types of figures: {\it *.png}, {\it *.pdf}, ...
\end{itemize}
\end{frame}
\begin{frame}
\frametitle{Posit Cloud: Import the zipped template}
\begin{beamerboxesrounded}%
[scheme=CommandeGrise, shadow=false]
{Exercise}
\begin{enumerate}
\item From your \href{https://posit.cloud}{Posit Cloud} account, create a project. Name it "Template".
\item From this project, "Upload" the zipped file.
\includegraphics[scale=0.3]{positUpload.png}
\end{enumerate}
\end{beamerboxesrounded}
\end{frame}
\begin{frame}
\frametitle{Running the template}
\begin{beamerboxesrounded}%
[scheme=CommandeGrise, shadow=false]
{Exercise}
\begin{enumerate}
\item Click on "exo.Moodle.template.R".
\item Select lines 1 to 27 and execute the commands (CTRL-Enter or Run button).
\item On line 25, replace "n = 1" with "n = 2" and execute line 20.
What happens to questions 3 and 4 and the solution/feedback?
\end{enumerate}
\end{beamerboxesrounded}
\end{frame}
% !TeX root = ../teach.Moodle.Latex.R
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% %%
%% Pastille %%
%% main %%
%% %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\section{Conception : Main}
\begin{frame}
\frametitle{The orchestra conductor}
The {\it\textcolor{vertmoyen}{exo.Moodle.template.R}} file is the orchestra conductor.
Its purpose is
\begin{itemize}
\pause
\item to indicate where the files are located
\begin{itemize}
\item statements (i.e. *.Rnw)
\item data composition and calculations (i.e. *.R)
\item generated output (*.xml or *.pdf)
\item possible images
\item static data, if any
\end{itemize}
\pause
\item initialize the seed of random numbers to be generated
\pause
\item to generate the result (i.e. HTML, pdf or XML)
\end{itemize}
\vspace{5mm}
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explanation}
{\it\textcolor{vertmoyen}{exo.Moodle.template.R}} must be executed to produce the result.
\end{beamerboxesrounded}
\end{frame}
\begin{frame}[fragile]
\frametitle{Main : content}
\begin{columns}[T] % align columns
\begin{column}{.48\textwidth}
Loading libraries
{\tiny
\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlcom{# load package}
\hlkwa{if} \hldef{(}\hlopt{!}\hlkwd{require}\hldef{(}\hlsng{"exams"}\hldef{))} \hlkwd{install.packages}\hldef{(}\hlsng{"exams"}\hldef{)}
\hlkwd{library}\hldef{(}\hlsng{"exams"}\hldef{)}
\end{alltt}
\end{kframe}
\end{knitrout}
}
{\scriptsize
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explanation}
If the libraries have not yet been downloaded once (part {\it if(...)}, then they will be.
Next, the "exams" library is loaded into memory. \end{beamerboxesrounded}
}
\end{column}%
\hfill%
\pause
\begin{column}{.48\textwidth}
Directory specification
{\tiny
\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlcom{# for data export}
\hldef{currentdir.wd} \hlkwb{<-} \hlkwd{getwd}\hldef{()}
\hldef{script.path} \hlkwb{<-} \hlkwd{paste0}\hldef{(currentdir.wd,} \hlsng{"/R/"}\hldef{)}
\hldef{data.path} \hlkwb{<-} \hlkwd{paste0}\hldef{(currentdir.wd,} \hlsng{"/data/"}\hldef{)}
\hldef{fig.path} \hlkwb{<-} \hlkwd{paste0}\hldef{(currentdir.wd,} \hlsng{"/fig/"}\hldef{)}
\hldef{statement.path} \hlkwb{<-} \hlkwd{paste0}\hldef{(currentdir.wd,} \hlsng{"/statement/"}\hldef{)}
\end{alltt}
\end{kframe}
\end{knitrout}
}
{\scriptsize
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explanation}
The files are organized into separate directories to enhance clarity.\\
/R/ for data composition and calculation (*.R)\\
/data/ for the storage of generated or static data.\\
/fig/ for storing static figures.
/statement/ for storing statements.
\end{beamerboxesrounded}
}
\end{column}%
\end{columns}
\end{frame}
\begin{frame}[fragile]
\frametitle{Main : content}
\begin{columns}[T] % align columns
\begin{column}{.48\textwidth}
Seed and statement
{\tiny
\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlcom{# set the seed}
\hlkwd{set.seed}\hldef{(}\hlnum{2022}\hldef{)}
\hlcom{# set the exercises}
\hldef{exo} \hlkwb{<-} \hlkwd{c}\hldef{(}\hlsng{"prefixe_template_specific.Rnw"}\hldef{)}
\end{alltt}
\end{kframe}
\end{knitrout}
}
{\scriptsize
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explanation}
{\it set.seed()} initializes the seed so that the result can be regenerated with the same data.\\
{\it exo} contains the list of question files. \end{beamerboxesrounded}
}
\end{column}%
\hfill%
\pause
\begin{column}{.48\textwidth}
Exporting to HTML
{\tiny
\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlcom{# export as HTML for a quick check}
\hlkwd{exams2html}\hldef{(}
\hlkwc{file} \hldef{= exo,}
\hlkwc{encoding} \hldef{=} \hlsng{"UTF-8"}\hldef{,}
\hlkwc{converter} \hldef{=} \hlsng{"pandoc"}\hldef{,}
\hlkwc{edir} \hldef{= statement.path,}
\hlkwc{template} \hldef{=} \hlsng{"plain8"}\hldef{,}
\hlkwc{n} \hldef{=} \hlnum{1}
\hldef{)}
\end{alltt}
\end{kframe}
\end{knitrout}
}
{\scriptsize
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explanation}
Exporting to HTML allows you to quickly see a result close to what will be generated.\\
{\it n=1} indicates that only one copy is generated.
\end{beamerboxesrounded}
}
\end{column}%
\end{columns}
\end{frame}
\begin{frame}[fragile]
\frametitle{Main : content}
Export to XML
{\tiny
\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlcom{# generate Moodle exo XML file}
\hlkwd{exams2moodle}\hldef{(}
\hlkwc{file} \hldef{= exo,}
\hlkwc{name} \hldef{=} \hlsng{"Formation"}\hldef{,}
\hlkwc{encoding} \hldef{=} \hlsng{"UTF-8"}\hldef{,}
\hlkwc{converter} \hldef{=} \hlsng{"pandoc"}\hldef{,}
\hlkwc{dir} \hldef{=} \hlsng{"output"}\hldef{,}
\hlkwc{cloze} \hldef{=} \hlkwd{list}\hldef{(}
\hlkwc{cloze_mchoice_display} \hldef{=} \hlsng{"MULTIRESPONSE"}\hldef{,}
\hlkwc{shuffle} \hldef{=} \hlnum{TRUE}\hldef{,}
\hlkwc{eval} \hldef{=} \hlkwd{list}\hldef{(}
\hlkwc{partial} \hldef{=} \hlnum{TRUE}\hldef{,}
\hlkwc{negative} \hldef{=} \hlnum{FALSE}\hldef{,}
\hlkwc{rule} \hldef{=} \hlsng{"true"}
\hldef{)}
\hldef{),}
\hlkwc{edir} \hldef{= statement.path,}
\hlkwc{rule} \hldef{=} \hlsng{"none"}\hldef{,}
\hlkwc{n} \hldef{=} \hlnum{1}
\hldef{)}
\end{alltt}
\end{kframe}
\end{knitrout}
}
{\scriptsize
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explanation : XML export importable by Moodle}
Produces the file that will be imported into the question database.\\
{\it\textcolor{vertmoyen}{name =}} name of the directory in the question bank.\\
There is 1 sub-directory created per statement file, which will contain {\it\textcolor{vertmoyen}{n}} versions of the statement.
\end{beamerboxesrounded}
}
\end{frame}
% !TeX root = ../teach.Moodle.Latex.R
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% %%
%% Pastille %%
%% Enonce %%
%% %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\section{Conception : Exercice}
\begin{frame}
\frametitle{Exercise: nomenclature}
Specific nomenclature for file consistency: words separated by "\_".
\begin{itemize}
\item {\it\textcolor{vertmoyen}{prefix}} = name of the course, for example {\it statIII}
\item {\it\textcolor{vertmoyen}{name}} = notion assessed, for example {\it TCL}
\item {\it\textcolor{vertmoyen}{specific}} = description of the exercise, for example {\it ticket}
\end{itemize}
\vspace{5mm}
\begin{beamerboxesrounded}%
[scheme=CommandeGrise, shadow=false]
{Examples}
\begin{tabular}{l@{ : }l}
Statement file & {\it statIII\_TCL\_ticket.Rnw}\\
Script R & {\it statIII\_TCL\_ticket.R}\\
Generated data & {\it ticket.csv}
\end{tabular}
\end{beamerboxesrounded}
\end{frame}
\begin{frame}[fragile]
\frametitle{Exercise: content}
File {\it prefix\_template\_specific.Rnw}
\begin{columns}[T] % align columns
\begin{column}{.48\textwidth}
Parameters
{\tiny
\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hldef{prefixe} \hlkwb{<-} \hlsng{"prefixe"}
\hldef{name} \hlkwb{<-} \hlsng{"template"}
\hldef{specific} \hlkwb{<-} \hlsng{"specific"}
\hldef{section} \hlkwb{<-} \hlkwd{paste0}\hldef{(prefixe,} \hlsng{"/"}\hldef{, name)}
\hldef{scriptname} \hlkwb{<-} \hlkwd{paste0}\hldef{(prefixe,} \hlsng{"_"}\hldef{, name,} \hlsng{"_"}\hldef{, specific,} \hlsng{".R"}\hldef{)}
\hldef{currentfile} \hlkwb{<-} \hlkwd{paste0}\hldef{(scriptname,} \hlsng{"nw"}\hldef{)}
\hldef{dataset.name} \hlkwb{<-} \hlkwd{paste0}\hldef{(specific,} \hlsng{".csv"}\hldef{)}
\hlcom{# precision}
\hldef{nbdecimal} \hlkwb{<-} \hlnum{0}
\hldef{precision} \hlkwb{<-} \hlnum{10}\hlopt{^}\hldef{(}\hlopt{-}\hldef{nbdecimal)}
\end{alltt}
\end{kframe}
\end{knitrout}
}
{\scriptsize
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explanation}
The first lines are used to define a nomenclature common to all the files: statement, R script, generated data.
{\it\textcolor{vertmoyen}{nbdecimal}} indicates the desired precision for the numerical answers.
\end{beamerboxesrounded}
}
\end{column}%
\hfill%
\pause
\begin{column}{.48\textwidth}
Availability of static files
{\tiny
\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlkwd{include_supplement}\hldef{(}\hlkwc{file} \hldef{= scriptname,}
\hlkwc{dir} \hldef{= script.path,}
\hlkwc{recursive} \hldef{=} \hlnum{TRUE}\hldef{)}
\hlkwd{include_supplement}\hldef{(}\hlkwc{file} \hldef{=} \hlsng{"cc-by-sa.png"}\hldef{,}
\hlkwc{dir} \hldef{= fig.path,}
\hlkwc{recursive} \hldef{=} \hlnum{TRUE}\hldef{)}
\hlkwd{include_supplement}\hldef{(}\hlkwc{file} \hldef{=} \hlsng{"givendata.csv"}\hldef{,}
\hlkwc{dir} \hldef{= data.path,}
\hlkwc{recursive} \hldef{=} \hlnum{TRUE}\hldef{)}
\end{alltt}
\end{kframe}
\end{knitrout}
}
{\scriptsize
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explanation}
The aim is to make the static files used in the statement "readable".
\end{beamerboxesrounded}
}
\end{column}%
\end{columns}
\end{frame}
\begin{frame}[fragile]
\frametitle{Exercise: content}
\begin{columns}[T] % align columns
\begin{column}{.48\textwidth}
Running the script
{\tiny
\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hldef{fullscriptname} \hlkwb{<-} \hlkwd{paste0}\hldef{(script.path, scriptname)}
\hlkwd{source}\hldef{(}\hlkwc{file} \hldef{= fullscriptname)}
\end{alltt}
\end{kframe}
\end{knitrout}
}
{\scriptsize
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explanation}
The commands contained in the R script are executed.
\end{beamerboxesrounded}
}
\end{column}%
\hfill%
\pause
\begin{column}{.48\textwidth}
Loading specific libraries
{\tiny
\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlcom{# install package if needed}
\hlkwa{if} \hldef{(}\hlopt{!}\hlkwd{require}\hldef{(}\hlsng{"ggplot2"}\hldef{))}
\hlkwd{install.packages}\hldef{(}\hlsng{"ggplot2"}\hldef{)}
\hlcom{# package loading}
\hlkwd{library}\hldef{(ggplot2)}
\end{alltt}
\end{kframe}
\end{knitrout}
}
{\scriptsize
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explanation}
This loads the library you use in the statement file into memory.
\end{beamerboxesrounded}
}
\end{column}%
\end{columns}
\end{frame}
\begin{frame}[fragile]
\frametitle{Exercise: content}
\begin{columns}[T] % align columns
\begin{column}{.48\textwidth}
Formulating the statement
{\tiny
\begin{verbatim}
\begin{question}
...
\end{question}
\end{verbatim}
}
{\scriptsize
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explication}
Your statement and questions are formulated in this space.
\end{beamerboxesrounded}
}
\end{column}%
\hfill%
\pause
\begin{column}{.48\textwidth}
Feedback global
{\tiny
\begin{verbatim}
\begin{solution}
...
\end{solution}
\end{verbatim}
}
{\scriptsize
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explication}
This space allows you to give global feedback.
You can develop your answer keys here.
\end{beamerboxesrounded}
}
\end{column}%
\end{columns}
\end{frame}
\begin{frame}[fragile]
\frametitle{Exercise: content}
Meta-Informations
{\tiny
\begin{verbatim}
%% ---------- meta-data --------- %
%% \extype{cloze}
%% \exsolution{paste(sol, collapse = "|")}
%% \exclozetype{paste(type, collapse = "|")}
%% \exsection{name}
%% \exname{name}
%% \extol{paste(tol, collapse = "|")}
%% \expoints{noquote(paste(point, collapse = "|"))}
%% \exversion{v0}
\end{verbatim}
}
{\scriptsize
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explication}
\begin{tabular}{ll}
{\it\textcolor{vertmoyen}{extype}} & cloze allows different types of questions\\
{\it\textcolor{vertmoyen}{exsolution}} & calculating the solution\\
{\it\textcolor{vertmoyen}{exname}} & exercise name\\
{\it\textcolor{vertmoyen}{exsection}} & directory name/creation\\
{\it\textcolor{vertmoyen}{extol}} & accuracy of numerical questions\\
{\it\textcolor{vertmoyen}{expoints}} & number of points per answer
\end{tabular}
\end{beamerboxesrounded}
}
\end{frame}
% !TeX root = ../teach.Moodle.Latex.R
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% %%
%% Pastille %%
%% Questions %%
%% %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\section{Conception : Questions}
\begin{frame}
\frametitle{Questions: principles}
\begin{itemize}
\item In a statement file, several questions can be asked.
\item Questions are of one of the following types: "schoice", "mchoice", "num" or "string".
In the case of a "schoice" or "mchoice" type, the answer is coded as a string of characters 0 and 1.
\item Following the question text in the "itemize" environment, the keyword {\it\textcolor{vertmoyen}{\#\#ANSWER?\#\#}} must be placed to indicate that an answer is expected.
The "{\it\textcolor{vertmoyen}{?}}" indicates the question number.
\item The following command should finally be placed just before the end of the "question" environment in a chunk.\\
It generates spaces for the student to give his answer.\\
\vspace{3mm}
\centerline{\it answerlist(unlist(question))}
\end{itemize}
\end{frame}
\begin{frame}[fragile]
\frametitle{Question: initialization}
{\tiny
\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlcom{# initilialize a solution vector}
\hldef{question} \hlkwb{<-} \hlkwd{list}\hldef{()}
\hldef{response} \hlkwb{<-} \hlkwd{list}\hldef{()}
\hldef{sol} \hlkwb{<-} \hlkwd{c}\hldef{()}
\hldef{type} \hlkwb{<-} \hlkwd{c}\hldef{()}
\hldef{point} \hlkwb{<-} \hlkwd{c}\hldef{()}
\hldef{tol} \hlkwb{<-} \hlkwd{c}\hldef{()}
\end{alltt}
\end{kframe}
\end{knitrout}
}
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explanation}
\begin{tabular}{ll}
{\it\textcolor{vertmoyen}{question}} & optional answers or an empty string (numerical answer)\\
{\it\textcolor{vertmoyen}{response}} & the decoded solution\\
{\it\textcolor{vertmoyen}{sol}} & the coded solution\\
{\it\textcolor{vertmoyen}{type}} & the types of questions\\
{\it\textcolor{vertmoyen}{point}} & the number of points for the solution\\
{\it\textcolor{vertmoyen}{tol}} & the tolerance for the numerical answers
\end{tabular}
\end{beamerboxesrounded}
\end{frame}
\begin{frame}[fragile]
\frametitle{Question: schoice type}
{\tiny
\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hldef{question[[}\hlnum{1}\hldef{]]} \hlkwb{<-} \hlkwd{paste}\hldef{(}\hlsng{"option"}\hldef{,} \hlnum{1}\hlopt{:}\hlnum{5}\hldef{)}
\hldef{solution} \hlkwb{<-} \hlkwd{mchoice2string}\hldef{(}\hlkwd{c}\hldef{(}\hlkwd{rep}\hldef{(F,} \hlnum{4}\hldef{), T))}
\hldef{sol} \hlkwb{<-} \hlkwd{c}\hldef{(sol, solution)}
\hldef{response[[}\hlnum{1}\hldef{]]} \hlkwb{<-} \hldef{question[[}\hlnum{1}\hldef{]][}\hlkwd{string2mchoice}\hldef{(solution)]}
\hldef{type} \hlkwb{<-} \hlkwd{c}\hldef{(type,} \hlsng{"schoice"}\hldef{)}
\hldef{point} \hlkwb{<-} \hlkwd{c}\hldef{(point,} \hlnum{1L}\hldef{)}
\hldef{tol} \hlkwb{<-} \hlkwd{c}\hldef{(tol,} \hlnum{0}\hldef{)}
\end{alltt}
\end{kframe}
\end{knitrout}
}
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explanation}
\begin{tabular}{ll}
{\it\textcolor{vertmoyen}{question}} & contains "option1", ..., "option5"\\
{\it\textcolor{vertmoyen}{solution}} & designates "option5" as the solution (T), \\
& the others being false (F),\\
& then encodes it as a string "00001"\\
{\it\textcolor{vertmoyen}{sol}} & adds the coded solution\\
{\it\textcolor{vertmoyen}{response}} & adds the decoded solution\\
{\it\textcolor{vertmoyen}{type}} & indicates the type of question, i.e. "schoice"\\
{\it\textcolor{vertmoyen}{point}} & gives the number of points for this solution, must be integer\\
{\it\textcolor{vertmoyen}{tol}} & no tolerance necessary (i.e. 0)
\end{tabular}
\end{beamerboxesrounded}
\end{frame}
\begin{frame}[fragile]
\frametitle{Question: mchoice type}
{\tiny
\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hldef{question[[}\hlnum{2}\hldef{]]} \hlkwb{<-} \hlkwd{paste}\hldef{(}\hlsng{"option"}\hldef{,} \hlnum{1}\hlopt{:}\hlnum{5}\hldef{)}
\hldef{solution} \hlkwb{<-} \hlkwd{mchoice2string}\hldef{(}\hlkwd{c}\hldef{(T, F, T, F, T))}
\hldef{sol} \hlkwb{<-} \hlkwd{c}\hldef{(sol, solution)}
\hldef{response[[}\hlnum{2}\hldef{]]} \hlkwb{<-} \hldef{question[[}\hlnum{2}\hldef{]][}\hlkwd{string2mchoice}\hldef{(solution)]}
\hldef{type} \hlkwb{<-} \hlkwd{c}\hldef{(type,} \hlsng{"mchoice"}\hldef{)}
\hldef{point} \hlkwb{<-} \hlkwd{c}\hldef{(point,} \hlkwd{sum}\hldef{(}\hlkwd{string2mchoice}\hldef{(solution)))}
\hldef{tol} \hlkwb{<-} \hlkwd{c}\hldef{(tol,} \hlnum{0}\hldef{)}
\end{alltt}
\end{kframe}
\end{knitrout}
}
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explanation}
Similar to a question of the type "schoice".\\
The difference is that several options must be validated,\\
i.e. "option 1" "option 3" "option 5".
\end{beamerboxesrounded}
\end{frame}
%\begin{frame}
% \frametitle{Your turn!!}
% \begin{columns}[T] % align columns
% \begin{column}{.48\textwidth}
% \begin{beamerboxesrounded}%
% [scheme=CommandeGrise, shadow=false]
% {Exercise}
% Create a "schoice" type question asking you to select the capital of a canton,
% whose name is drawn at random from a \href{https://www.travailler-en-suisse.ch/villes-et-cantons-suisses.html}{list of cantons}.
% \begin{itemize}
% \item The .R file has already been created, as well as the data file
% \item Modify the \textcolor{vertmoyen}{lines 44-45} in the file "formation\_qcm\_canton.Rnw"
% \end{itemize}
% \end{beamerboxesrounded}
% \end{column}%
% \hfill%
% \begin{column}{.48\textwidth}
% \begin{beamerboxesrounded}%
% [scheme=CommandeGrise, shadow=false]
% {Exercise}
% Create an "mchoice" question asking you to select the cantons where \href{https://fr.wikipedia.org/wiki/Canton_(Switzerland)}{French} is an official language.
% \begin{itemize}
% \item The .R file has already been created, as well as the data file
% \item Modify \textcolor{vertmoyen}{lines 51-52} in the file "formation\_qcm\_canton.Rnw"
% \end{itemize}
% \end{beamerboxesrounded}
% \end{column}%
% \end{columns}
%\end{frame}
\begin{frame}[fragile]
\frametitle{Question: num type}
{\tiny
\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hldef{question[[}\hlnum{3}\hldef{]]} \hlkwb{<-} \hlsng{""}
\hldef{solution} \hlkwb{<-} \hlkwd{round}\hldef{(}\hlkwd{mean}\hldef{(x), nbdecimal)}
\hldef{sol} \hlkwb{<-} \hlkwd{c}\hldef{(sol, solution)}
\hldef{response[[}\hlnum{3}\hldef{]]} \hlkwb{<-} \hldef{solution}
\hldef{type} \hlkwb{<-} \hlkwd{c}\hldef{(type,} \hlsng{"num"}\hldef{)}
\hldef{point} \hlkwb{<-} \hlkwd{c}\hldef{(point,} \hlnum{3L}\hldef{)}
\hldef{tol} \hlkwb{<-} \hlkwd{c}\hldef{(tol, precision)}
\end{alltt}
\end{kframe}
\end{knitrout}
}
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explanation}
A numerical value is requested.\\
The number of points awarded for a correct answer is 3 pts.\\
The tolerance is set to the precision value.
\end{beamerboxesrounded}
\end{frame}
%\begin{frame}
% \frametitle{Your turn!}
% \begin{beamerboxesrounded}%
% [scheme=CommandeGrise, shadow=false]
% {Exercise}
% Create a "num" question asking you to calculate the $x$ percent of $y$, $x$ and $y$ being random.
%
% \begin{itemize}
% \item Create the script file *.R\\
% Help: the \textit{sample(1:100, 1)} command is used to obtain a random number between 1 and 100.
% \item Create the statement file *.Rnw\\
% Award 2 points for this question.
% \end{itemize}
%\end{beamerboxesrounded}
%\end{frame}
\begin{frame}[fragile]
\frametitle{Question: string type}
{\tiny
\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hldef{question[[}\hlnum{4}\hldef{]]} \hlkwb{<-} \hldef{dat[}\hlnum{2}\hldef{, selectedindex]}
\hldef{solution} \hlkwb{<-} \hldef{dat[}\hlnum{1}\hldef{, selectedindex]}
\hldef{sol} \hlkwb{<-} \hlkwd{c}\hldef{(sol, solution)}
\hldef{response[[}\hlnum{4}\hldef{]]} \hlkwb{<-} \hldef{solution}
\hldef{type} \hlkwb{<-} \hlkwd{c}\hldef{(type,} \hlsng{"string"}\hldef{)}
\hldef{point} \hlkwb{<-} \hlkwd{c}\hldef{(point,} \hlnum{1L}\hldef{)}
\hldef{tol} \hlkwb{<-} \hlkwd{c}\hldef{(tol,} \hlnum{0}\hldef{)}
\end{alltt}
\end{kframe}
\end{knitrout}
}
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explanation}
A character string is expected.
The data has been generated in the *.R script (i.e. the "dat" matrix) as well as the line number (i.e. "selectedindex").
\end{beamerboxesrounded}
\end{frame}
%\begin{frame}
% \frametitle{Your turn!}
% \begin{beamerboxesrounded}%
% [scheme=CommandeGrise, shadow=false]
% {Exercise}
% Create a "string" question asking for the 3-letter code representing an ISO 3166-1 alpha-3 country, randomly selected from a list of countries.\\
% \vspace{3mm}
% A list is available at \\ \href{https://en.wikipedia.org/wiki/ISO\_3166-1\_alpha-3}{https://en.wikipedia.org/wiki/ISO\_3166-1\_alpha-3}
%
% \begin{itemize}
% \item Create the script file *.R\\
% Help: the \textit{sample(1:100, 1)} command is used to obtain a random number between 1 and 100.
% \item Create the statement file *.Rnw\\
% Award 1 point for this question.
% \end{itemize}
%\end{beamerboxesrounded}
%\end{frame}
% !TeX root = ../teach.Moodle.Latex.R
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% %%
%% Pastille %%
%% Test %%
%% %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\section{Design: Activity Test (Moodle)}
\begin{frame}
\frametitle{Test activity: Steps}
\begin{enumerate}
\item RStudio/Posit : export to XML with the command {\it\textcolor{vertmoyen}{exams2moodle()}}, with
\begin{itemize}
\item the desired name (name = ...)
\item the number of versions (n = ...)
\end{itemize}
\item Moodle: Import the resulting file into the question bank
\item Moodle: Insert a Test activity
\setbeamertemplate{enumerate items}[default]
\begin{enumerate}
\item Add random "questions"/exercises
\item If necessary, adjust the (total) number of points per exercise.
\end{enumerate}
\setbeamertemplate{enumerate items}[circle]
\item Moodle: Finalize settings (if graded evaluation)
\end{enumerate}
\end{frame}
\begin{frame}
\frametitle{Test activity: Step 3.2}
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explanation: number of points}
The number of points $n_i$ per answer $i$ has been specified. Changing the total number of points $N$ for an exercise means assigning a number of points proportional to $n_i$.
\end{beamerboxesrounded}
\end{frame}
%\begin{frame}[fragile]
% \frametitle{Your turn!}
% \begin{beamerboxesrounded}%
% [scheme=CommandeGrise, shadow=false]
% {Exercise}
% Use your production to create a test activity.\\
% \begin{enumerate}
% \item Generate 3 versions to create the XML file.
% \item Import your file into the question database...
% \item Create a test activity consisting of your 3 questions (use Random Questions).
% \item Change the number of points to 2 for the question on Swiss cantons.
% \item Try it out!
% \end{enumerate}
% \end{beamerboxesrounded}
%\end{frame}
% !TeX root = ../teach.Moodle.Latex.R
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% %%
%% Pastille %%
%% OER %%
%% %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\section{Open Educational Resources}
\begin{frame}
\frametitle{Open Educational Resources (\href{https://en.wikipedia.org/wiki/Open_educational_resources}{OER})}
% https://www.zhaw.ch/en/library/research-teaching/open-educational-resources/
Based on this principle, a database of initial questions for statists is made available under licence \ccbysa.
\vspace{5mm}
\begin{beamerboxesrounded}%
[scheme=CommandeVerte, shadow=true]
{Request}
Contribute to its expansion so that we can all benefit from it!
\end{beamerboxesrounded}
\end{frame}
%\begin{frame}
% \frametitle{Didactic certificate}
% \begin{beamerboxesrounded}%
% [scheme=CommandeVerte, shadow=false]
% {Conditions for success}
% Participation in the "OER Contribution" workshop
% according to your area of expertise and positive evaluation.
% \begin{enumerate}
% \item 3 questions of different types (among "schoice", "mchoice", "num", "string")
% \item Evaluation (formal) of assigned questions: evaluation of your peers' questions
% \item Instructor's positive (formal) evaluation
% \end{enumerate}
% \end{beamerboxesrounded}
%\end{frame}
%
%\begin{frame}
% \frametitle{Your turn!}
% \begin{beamerboxesrounded}%
% [scheme=CommandeGrise, shadow=false]
% {Exercise}
% \begin{enumerate}
% \item Create an "OER" project
% \item Import the zipped file OER.zip
% \item Create $n=1$ HTML version of the exercises
% \item {\it Enjoy!}
% \end{enumerate}
% \end{beamerboxesrounded}
%
%\end{frame}
% !TeX root = ../en_teach.Moodle.Latex.R
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% %%
%% Pastille %%
%% Bibliographie %%
%% %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\section*{Bibliography}
\begin{frame}
\frametitle{Bibliography}
\nocite{*}
% \printbibliography[heading=bibintoc, title={Bibliographie}]
\printbibliography
\end{frame}
\else
\input{source/fr_course.tex}
% !TeX root = ../teach.Moodle.Latex.R
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% %%
%% Pastille %%
%% Intro %%
%% %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\section{Introduction}
\begin{frame}
\frametitle{La problématique}
\begin{beamerboxesrounded}%
[scheme=CommandeOrange, shadow=true]
{Le constat}
Cyberlearn/Moodle ne permet pas d'utiliser des fonctions avancées avec des données générées aléatoirement pour formuler des questions pour un exercice.
\end{beamerboxesrounded}
\vspace{3mm}
\begin{beamerboxesrounded}%
[scheme=CommandeGrise, shadow=false]
{Exercice}
Essayez de calculer la variance d'un ensemble de nombres générés aléatoirement dans une question de l'activité "Test"
\end{beamerboxesrounded}
\begin{itemize}
\item Comment concevoir ce type de questions ou d'autres plus évoluées ?
\item Comment généraliser la production de questions avec des données distinctes pour \\
\begin{itemize}
\item driller : des exercices identiques mais avec des paramètres numériques (nombres, fonctions, ...) distincts
\item examen : des valeurs différentes pour chaque étudiant (minimiser le risque de triche)
\end{itemize}
\end{itemize}
\end{frame}
\begin{frame}
\frametitle{\includegraphics[scale=0.04]{idea.png}}
\begin{beamerboxesrounded}%
[scheme=CommandeVerte, shadow=true]
{Le processus}
\begin{enumerate}
\item Externaliser la conception :\\
\begin{itemize}
\item génération de nombres aléatoires
\item conception des questions
\item calcul des réponses
\item conception du corrigé
\end{itemize}
\item Générer le tout dans un fichier importable dans la banque de question de Moodle/Cyberlearn
\item Moodle/Cyberlearn : concevoir une activité "Test"
\end{enumerate}
\end{beamerboxesrounded}
\vspace{5mm}
{\scriptsize\it Image provenant de \href{https://pixabay.com/}{https://pixabay.com/}}
\end{frame}
\begin{frame}
\frametitle{Pré-requis}
\begin{itemize}
\item Moodle/Cyberlearn : construction d'une activité \href{https://docs.moodle.org/4x/fr/Test}{"Test"}
\item {\it Connaissances souhaitables :}
\begin{itemize}
\item \href{https://www.r-project.org/}{R} : notions élémentaires du langage
\item \href{https://www.latex-project.org/}{\LaTeX} : notions de base
\end{itemize}
\end{itemize}
\end{frame}
% !TeX root = ../teach.Moodle.Latex.R
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% %%
%% Pastille %%
%% Solution %%
%% %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\section{Solution}
\begin{frame}
\frametitle{Reconnaissance du travail}
La solution est entièrement basée sur le paquetage R\\ \href{https://cran.r-project.org/web/packages/exams/index.html}{exams: Automatic Generation of Exams in R}\\[3mm]
{\it
sources:
\begin{itemize}
\item \cite{Zeileis2009}
\item \cite{Zeileis2014}
\item voir aussi : \cite{zeileis_rexams_nodate}
\end{itemize}
}
\centerline{Un grand merci à l'auteur : Zeileis, Achim pour son travail !}
\end{frame}
\begin{frame}[fragile]
\frametitle{Outils nécessaires}
\begin{columns}[T] % align columns
\begin{column}{.48\textwidth}
Soit
\vspace{5mm}
\begin{enumerate}
\item Une version \href{https://www.latex-project.org/}{\LaTeX} installée sur votre laptop ou via un browser
\begin{itemize}
\item Windows : \href{https://miktex.org/}{MiKTex} or \href{https://tug.org/texlive/}{TeX Live}
\item Linux : \href{https://tug.org/texlive/}{TeX Live}
\item Mac : \href{https://tug.org/mactex/}{MacTeX}
\end{itemize}
\item Le logiciel \href{https://www.r-project.org/}{R}
\end{enumerate}
\end{column}%
\hfill%
\pause
\begin{column}{.48\textwidth}
ou alors simplement via
\vspace{5mm}
\begin{beamerboxesrounded}%
[scheme=CommandeVerte, shadow=true]
{Un butineur}
\href{https://posit.cloud}{Posit Cloud} (ex RStudio Cloud)
\end{beamerboxesrounded}
\vspace{5mm}
\begin{beamerboxesrounded}%
[scheme=CommandeGrise, shadow=false]
{Exercice}
Créez un compte sur \href{https://posit.cloud}{Posit Cloud} si vous n'avez pas \LaTeX et R.
\end{beamerboxesrounded}
\end{column}%
\end{columns}
\end{frame}
\begin{frame}
\frametitle{Le Graal !}
\begin{beamerboxesrounded}%
[scheme=CommandeVerte, shadow=false]
{Le template}
Le \href{}{template}, sous licence \href{https://creativecommons.org/licenses/by-sa/4.0/}{\ccbysa}, contient les options de questions possibles.
Le fichier compressé contient tout le nécessaire selon la struture ci-dessous.
\end{beamerboxesrounded}
\dirtree{%
.1 ..
.2 {\it\textcolor{vertmoyen}{exo.Moodle.template.R}}.
.2 {\it exo.Moodle.template.Rproj}.
.2 \faIcon[regular]{folder-open} output.
.2 \faIcon[regular]{folder-open} statement.
.3 {\it\textcolor{vertmoyen}{prefixe\_template\_specific.Rnw}}.
.2 \faIcon[regular]{folder-open} data.
.3 {\it givendata.csv}.
.2 \faIcon[regular]{folder-open} fig.
.3 {\it cc-by-sa.png}.
.2 \faIcon[regular]{folder-open} R.
.3 {\it\textcolor{vertmoyen}{prefixe\_template\_specific.R}}.
}
\end{frame}
\begin{frame}
\frametitle{Les fichiers}
\begin{itemize}
\pause
\item L'énoncé : ./statement/*.Rnw\\
Il contient l'énoncé, les questions, les solutions et le feedback global (= le corrigé)\\
\pause
\item Le script : ./R/*.R\\
Il permet la génération de données aléatoires ou la lecture d'un fichier statique. Il contient aussi tous les calculs que vous souhaitez faire.
\pause
\item La donnée générée : ./data/*.csv\\
Le format {\it csv} est celui d'un fichier tabulaire. Vous pouvez bien entendu générer d'autres types de fichiers (i.e. {\it *.txt}, {\it *.xlsx}, ...)
\pause
\item Les figures./fig/*.*\\
Vous pouvez générer des figures de plusieurs types : {\it *.png}, {\it *.pdf}, ...
\end{itemize}
\end{frame}
\begin{frame}
\frametitle{Posit Cloud: Importer le template zippé}
\begin{beamerboxesrounded}%
[scheme=CommandeGrise, shadow=false]
{Exercice}
\begin{enumerate}
\item Depuis votre compte \href{https://posit.cloud}{Posit Cloud}, créez un projet que vous nommez Template
\item Depuis ce projet, "Upload" le fichier zippé.
\includegraphics[scale=0.3]{positUpload.png}
\end{enumerate}
\end{beamerboxesrounded}
\end{frame}
\begin{frame}
\frametitle{Exécution du template}
\begin{beamerboxesrounded}%
[scheme=CommandeGrise, shadow=false]
{Exercice}
\begin{enumerate}
\item Cliquez sur "exo.Moodle.template.R"
\item Sélectionnez les lignes 1 à 27 et exécutez les commandes (CTRL-Enter ou bouton Run).
\item Ligne 25, remplacez "n = 1" par "n = 2" et exécutez la ligne 20.\\
Que se passe-t-il pour les questions 3 et 4 et la solution/feedback ?
\end{enumerate}
\end{beamerboxesrounded}
\end{frame}
% !TeX root = ../teach.Moodle.Latex.R
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% %%
%% Pastille %%
%% main %%
%% %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\section{Conception : Main}
\begin{frame}
\frametitle{La cheffe d'orchestre}
Le fichier {\it\textcolor{vertmoyen}{exo.Moodle.template.R}} est la cheffe d'orchestre.
Son but est
\begin{itemize}
\pause
\item d'indiquer où se trouvent les fichiers
\begin{itemize}
\item énoncés (i.e. *.Rnw)
\item composition de données et calculs (i.e. *.R)
\item l'output généré (*.xml ou *.pdf)
\item images éventuelles
\item donnnées statiques éventuelles
\end{itemize}
\pause
\item d'initialiser le germe des nombres aléatoires à générer
\pause
\item de générer le résultat (i.e. HTML ou XML)
\end{itemize}
\vspace{5mm}
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explication}
{\it\textcolor{vertmoyen}{exo.Moodle.template.R}} doit être exécuté pour produire le résultat.
\end{beamerboxesrounded}
\end{frame}
\begin{frame}[fragile]
\frametitle{Main : contenu}
\begin{columns}[T] % align columns
\begin{column}{.48\textwidth}
Chargement des librairies
{\tiny
\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlcom{# load package}
\hlkwa{if} \hldef{(}\hlopt{!}\hlkwd{require}\hldef{(}\hlsng{"exams"}\hldef{))} \hlkwd{install.packages}\hldef{(}\hlsng{"exams"}\hldef{)}
\hlkwd{library}\hldef{(}\hlsng{"exams"}\hldef{)}
\end{alltt}
\end{kframe}
\end{knitrout}
}
{\scriptsize
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explication}
Si les librairies n'ont pas encore été téléchargées une première fois (partie {\it if(...)}, alors elles le seront.
Puis, la librairie "exams" est chargée en mémoire.
\end{beamerboxesrounded}
}
\end{column}%
\hfill%
\pause
\begin{column}{.48\textwidth}
Spécification des répertoires
{\tiny
\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlcom{# for data export}
\hldef{currentdir.wd} \hlkwb{<-} \hlkwd{getwd}\hldef{()}
\hldef{script.path} \hlkwb{<-} \hlkwd{paste0}\hldef{(currentdir.wd,} \hlsng{"/R/"}\hldef{)}
\hldef{data.path} \hlkwb{<-} \hlkwd{paste0}\hldef{(currentdir.wd,} \hlsng{"/data/"}\hldef{)}
\hldef{fig.path} \hlkwb{<-} \hlkwd{paste0}\hldef{(currentdir.wd,} \hlsng{"/fig/"}\hldef{)}
\hldef{statement.path} \hlkwb{<-} \hlkwd{paste0}\hldef{(currentdir.wd,} \hlsng{"/statement/"}\hldef{)}
\end{alltt}
\end{kframe}
\end{knitrout}
}
{\scriptsize
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explication}
Les fichiers sont dans des répertoires distincts pour plus de clarté.\\
/R/ pour les fichiers de composition de données et de calculs (*.R)\\
/data/ pour le stockage des données générées ou statiques\\
/fig/ pour le stockage des figures statiques\\
/statement/ pour les énoncés
\end{beamerboxesrounded}
}
\end{column}%
\end{columns}
\end{frame}
\begin{frame}[fragile]
\frametitle{Main : contenu}
\begin{columns}[T] % align columns
\begin{column}{.48\textwidth}
Germe et énoncé
{\tiny
\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlcom{# set the seed}
\hlkwd{set.seed}\hldef{(}\hlnum{2022}\hldef{)}
\hlcom{# set the exercises}
\hldef{exo} \hlkwb{<-} \hlkwd{c}\hldef{(}\hlsng{"prefixe_template_specific.Rnw"}\hldef{)}
\end{alltt}
\end{kframe}
\end{knitrout}
}
{\scriptsize
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explication}
{\it set.seed()} initialise le germe afin de pouvoir regénérer le résultat avec les mêmes données.\\
{\it exo} contient la liste des fichiers de questions.
\end{beamerboxesrounded}
}
\end{column}%
\hfill%
\pause
\begin{column}{.48\textwidth}
Export en HTML
{\tiny
\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlcom{# export as HTML for a quick check}
\hlkwd{exams2html}\hldef{(}
\hlkwc{file} \hldef{= exo,}
\hlkwc{encoding} \hldef{=} \hlsng{"UTF-8"}\hldef{,}
\hlkwc{converter} \hldef{=} \hlsng{"pandoc"}\hldef{,}
\hlkwc{edir} \hldef{= statement.path,}
\hlkwc{template} \hldef{=} \hlsng{"plain8"}\hldef{,}
\hlkwc{n} \hldef{=} \hlnum{1}
\hldef{)}
\end{alltt}
\end{kframe}
\end{knitrout}
}
{\scriptsize
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explication}
L'export en HTML permet de rapidement voir un résultat proche de ce qui sera généré.\\
{\it n=1} indique qu'un seul exemplaire est généré.
\end{beamerboxesrounded}
}
\end{column}%
\end{columns}
\end{frame}
\begin{frame}[fragile]
\frametitle{Main : contenu}
Export en XML
{\tiny
\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlcom{# generate Moodle exo XML file}
\hlkwd{exams2moodle}\hldef{(}
\hlkwc{file} \hldef{= exo,}
\hlkwc{name} \hldef{=} \hlsng{"Formation"}\hldef{,}
\hlkwc{encoding} \hldef{=} \hlsng{"UTF-8"}\hldef{,}
\hlkwc{converter} \hldef{=} \hlsng{"pandoc"}\hldef{,}
\hlkwc{dir} \hldef{=} \hlsng{"output"}\hldef{,}
\hlkwc{cloze} \hldef{=} \hlkwd{list}\hldef{(}
\hlkwc{cloze_mchoice_display} \hldef{=} \hlsng{"MULTIRESPONSE"}\hldef{,}
\hlkwc{shuffle} \hldef{=} \hlnum{TRUE}\hldef{,}
\hlkwc{eval} \hldef{=} \hlkwd{list}\hldef{(}
\hlkwc{partial} \hldef{=} \hlnum{TRUE}\hldef{,}
\hlkwc{negative} \hldef{=} \hlnum{FALSE}\hldef{,}
\hlkwc{rule} \hldef{=} \hlsng{"true"}
\hldef{)}
\hldef{),}
\hlkwc{edir} \hldef{= statement.path,}
\hlkwc{rule} \hldef{=} \hlsng{"none"}\hldef{,}
\hlkwc{n} \hldef{=} \hlnum{1}
\hldef{)}
\end{alltt}
\end{kframe}
\end{knitrout}
}
{\scriptsize
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explication : export en XML importable par Moodle}
Produit le fichier qui sera importé dans la banque de questions.\\
{\it\textcolor{vertmoyen}{name =}} nom du répertoire dans la banque de questions.\\
Il y a 1 sous-répertoire de créé par fichier d'énoncé, qui contiendra {\it\textcolor{vertmoyen}{n}} versions de l'énoncé.
\end{beamerboxesrounded}
}
\end{frame}
% !TeX root = ../teach.Moodle.Latex.R
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% %%
%% Pastille %%
%% Enonce %%
%% %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\section{Conception : Exercice}
\begin{frame}
\frametitle{Exercice : nomenclature}
Nomenclature spécifique pour une cohérence des fichiers : mots séparés par des "\_"\\
\begin{itemize}
\item {\it\textcolor{vertmoyen}{prefixe}} = nom du cours, par exemple {\it statIII}
\item {\it\textcolor{vertmoyen}{name}} = notion évaluée, par exemple {\it TCL}
\item {\it\textcolor{vertmoyen}{specific}} = description de l'exercice, par exemple {\it ticket}
\end{itemize}
\vspace{5mm}
\begin{beamerboxesrounded}%
[scheme=CommandeGrise, shadow=false]
{Exemples}
\begin{tabular}{l@{ : }l}
Fichier d'énoncé & {\it statIII\_TCL\_ticket.Rnw}\\
Script R & {\it statIII\_TCL\_ticket.R}\\
Donnée générée & {\it ticket.csv}
\end{tabular}
\end{beamerboxesrounded}
\end{frame}
\begin{frame}[fragile]
\frametitle{Exercice : contenu}
Fichier {\it prefixe\_template\_specific.Rnw}
\begin{columns}[T] % align columns
\begin{column}{.48\textwidth}
Paramètres
{\tiny
\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hldef{prefixe} \hlkwb{<-} \hlsng{"prefixe"}
\hldef{name} \hlkwb{<-} \hlsng{"template"}
\hldef{specific} \hlkwb{<-} \hlsng{"specific"}
\hldef{section} \hlkwb{<-} \hlkwd{paste0}\hldef{(prefixe,}\hlsng{"_"}\hldef{, name)}
\hldef{scriptname} \hlkwb{<-} \hlkwd{paste0}\hldef{(prefixe,}\hlsng{"_"}\hldef{, name,} \hlsng{"_"}\hldef{, specific,} \hlsng{".R"}\hldef{)}
\hldef{currentfile} \hlkwb{<-} \hlkwd{paste0}\hldef{(scriptname,} \hlsng{"nw"}\hldef{)}
\hldef{dataset.name} \hlkwb{<-} \hlkwd{paste0}\hldef{(specific,} \hlsng{".csv"}\hldef{)}
\hlcom{# precision}
\hldef{nbdecimal} \hlkwb{<-} \hlnum{3}
\hldef{precision} \hlkwb{<-} \hlnum{10}\hlopt{^}\hldef{(}\hlopt{-}\hldef{nbdecimal)}
\end{alltt}
\end{kframe}
\end{knitrout}
}
{\scriptsize
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explication}
Les première lignes permettent de définir une nomenclature commune à tous les fichiers : énoncé, script R, données générées.\\
{\it\textcolor{vertmoyen}{nbdecimal}} indique la précision voulue pour les réponses numériques.
\end{beamerboxesrounded}
}
\end{column}%
\hfill%
\pause
\begin{column}{.48\textwidth}
Disponibilité des fichiers statiques
{\tiny
\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlkwd{include_supplement}\hldef{(}\hlkwc{file} \hldef{= scriptname,}
\hlkwc{dir} \hldef{= script.path,} \hlkwc{recursive} \hldef{=} \hlnum{TRUE}\hldef{)}
\hlkwd{include_supplement}\hldef{(}\hlkwc{file} \hldef{=} \hlsng{"cc-by-sa.png"}\hldef{,}
\hlkwc{dir} \hldef{= fig.path,} \hlkwc{recursive} \hldef{=} \hlnum{TRUE}\hldef{)}
\hlkwd{include_supplement}\hldef{(}\hlkwc{file} \hldef{=} \hlsng{"givendata.csv"}\hldef{,}
\hlkwc{dir} \hldef{= data.path,} \hlkwc{recursive} \hldef{=} \hlnum{TRUE}\hldef{)}
\end{alltt}
\end{kframe}
\end{knitrout}
}
{\scriptsize
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explication}
Le but est de rendre "lisibles" les fichiers statiques qui seront utilisés dans l'énoncé.
\end{beamerboxesrounded}
}
\end{column}%
\end{columns}
\end{frame}
\begin{frame}[fragile]
\frametitle{Exercice : contenu}
\begin{columns}[T] % align columns
\begin{column}{.48\textwidth}
Exécution du script
{\tiny
\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hldef{fullscriptname} \hlkwb{<-} \hlkwd{paste0}\hldef{(script.path, scriptname)}
\hlkwd{source}\hldef{(fullscriptname)}
\end{alltt}
\end{kframe}
\end{knitrout}
}
{\scriptsize
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explication}
Les commandes contenues dans le script R sont exécutées.
\end{beamerboxesrounded}
}
\end{column}%
\hfill%
\pause
\begin{column}{.48\textwidth}
Chargement de librairies
{\tiny
\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlcom{# install package if needed}
\hlkwa{if}\hldef{(}\hlopt{!}\hlkwd{require}\hldef{(}\hlsng{"ggplot2"}\hldef{))} \hlkwd{install.packages}\hldef{(}\hlsng{"ggplot2"}\hldef{)}
\hlcom{# package loading}
\hlkwd{library}\hldef{(ggplot2)}
\end{alltt}
\end{kframe}
\end{knitrout}
}
{\scriptsize
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explication}
Cet espace permet de charger en mémoire les librairies que vous utilisez dans le fichier d'énoncé.
\end{beamerboxesrounded}
}
\end{column}%
\end{columns}
\end{frame}
\begin{frame}[fragile]
\frametitle{Exercice : contenu}
\begin{columns}[T] % align columns
\begin{column}{.48\textwidth}
Formulation de l'énoncé
{\tiny
\begin{verbatim}
\begin{question}
...
\end{question}
\end{verbatim}
}
{\scriptsize
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explication}
Votre énoncé avec vos questions sont formulés dans cet espace.
\end{beamerboxesrounded}
}
\end{column}%
\hfill%
\pause
\begin{column}{.48\textwidth}
Feedback global
{\tiny
\begin{verbatim}
\begin{solution}
...
\end{solution}
\end{verbatim}
}
{\scriptsize
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explication}
Cet espace permet de donner un feedback global. Vous pouvez y développer votre corrigé.
\end{beamerboxesrounded}
}
\end{column}%
\end{columns}
\end{frame}
\begin{frame}[fragile]
\frametitle{Exercice : contenu}
Meta-Informations
{\tiny
\begin{verbatim}
%% ---------- meta-data --------- %
%% \extype{cloze}
%% \exsolution{paste(sol, collapse = "|")}
%% \exclozetype{paste(type, collapse = "|")}
%% \exsection{name}
%% \exname{name}
%% \extol{paste(tol, collapse = "|")}
%% \expoints{noquote(paste(point, collapse = "|"))}
%% \exversion{v0}
\end{verbatim}
}
{\scriptsize
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explication}
\begin{tabular}{ll}
{\it\textcolor{vertmoyen}{extype}} & cloze permet des questions de différents types\\
{\it\textcolor{vertmoyen}{exsolution}} & calcul de la solution\\
{\it\textcolor{vertmoyen}{exname}} & nom de l'exercice\\
{\it\textcolor{vertmoyen}{exsection}} & nom/création d'un répertoire\\
{\it\textcolor{vertmoyen}{extol}} & précision des questions numériques\\
{\it\textcolor{vertmoyen}{expoints}} & nombre de points par réponse
\end{tabular}
\end{beamerboxesrounded}
}
\end{frame}
% !TeX root = ../teach.Moodle.Latex.R
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% %%
%% Pastille %%
%% Questions %%
%% %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\section{Conception : Questions}
\begin{frame}
\frametitle{Questions : principe}
\begin{itemize}
\item Dans un fichier d'énoncé, plusieurs questions peuvent être posées.
\item Les questions sont de l'un des types suivants :
\begin{itemize}
\item "schoice",
\item "mchoice",
\item "num",
\item "string"
\end{itemize}
Dans le cas d'un type "schoice" ou "mchoice", la réponse est codée sous forme de chaîne de caractères 0 et 1.
\item Suite au texte de la question dans l'environement "itemize", le mot clé {\it\textcolor{vertmoyen}{\#\#ANSWER?\#\#}}
doit être placé afin d'indiquer qu'une réponse est attendue.\\
Le "{\it\textcolor{vertmoyen}{?}}" indique le numéro de la question.
\item La commande suivante doit finalement être placée juste avant la fin de l'environnement "question" dans un chunk. Elle est utile pour préparer les réponses aux questions.\\
\vspace{2mm}
\centerline{\it answerlist(unlist(question))}
\end{itemize}
\end{frame}
\begin{frame}[fragile]
\frametitle{Questions : initialisation}
{\tiny
\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlcom{# initilialize a solution vector}
\hldef{question} \hlkwb{<-} \hlkwd{list}\hldef{()}
\hldef{response} \hlkwb{<-} \hlkwd{list}\hldef{()}
\hldef{sol} \hlkwb{<-} \hlkwd{c}\hldef{()}
\hldef{type} \hlkwb{<-} \hlkwd{c}\hldef{()}
\hldef{point} \hlkwb{<-} \hlkwd{c}\hldef{()}
\hldef{tol} \hlkwb{<-} \hlkwd{c}\hldef{()}
\end{alltt}
\end{kframe}
\end{knitrout}
}
{\scriptsize
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explication : Initialisation}
Permet à R de construire les variables.
\vspace*{2mm}
\begin{tabular}{ll}
{\it\textcolor{vertmoyen}{question}} & options d'un qcm ou vide ("") pour les questions numériques\\
{\it\textcolor{vertmoyen}{reponse}} & réponses aux questions dans un vecteur\\
{\it\textcolor{vertmoyen}{sol}} & réponses aux questions dans une liste\\
{\it\textcolor{vertmoyen}{type}} & type de question : "schoice", "mchoice", "num" ou "string"\\
{\it\textcolor{vertmoyen}{point}} & nombre de points par réponse (\textcolor{red}{un entier !})\\
{\it\textcolor{vertmoyen}{tol}} & tolérance pour les valeurs numériques
\end{tabular}
\end{beamerboxesrounded}
}
\end{frame}
\begin{frame}[fragile]
\frametitle{Question : type schoice}
{\tiny
\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hldef{question[[}\hlnum{1}\hldef{]]} \hlkwb{<-} \hlkwd{paste}\hldef{(}\hlsng{"option"}\hldef{,} \hlnum{1}\hlopt{:}\hlnum{5}\hldef{)}
\hldef{solution} \hlkwb{<-} \hlkwd{mchoice2string}\hldef{(}\hlkwd{c}\hldef{(}\hlkwd{rep}\hldef{(F,} \hlnum{4}\hldef{), T))}
\hldef{sol} \hlkwb{<-} \hlkwd{c}\hldef{(sol, solution)}
\hldef{response[[}\hlnum{1}\hldef{]]} \hlkwb{<-} \hldef{question[[}\hlnum{1}\hldef{]][}\hlkwd{string2mchoice}\hldef{(solution)]}
\hldef{type} \hlkwb{<-} \hlkwd{c}\hldef{(type,} \hlsng{"schoice"}\hldef{)}
\hldef{point} \hlkwb{<-} \hlkwd{c}\hldef{(point,} \hlnum{1L}\hldef{)}
\hldef{tol} \hlkwb{<-} \hlkwd{c}\hldef{(tol,} \hlnum{0}\hldef{)}
\end{alltt}
\end{kframe}
\end{knitrout}
}
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explication}
\begin{tabular}{ll}
{\it\textcolor{vertmoyen}{question}} & contient "option1", ..., "option5"\\
{\it\textcolor{vertmoyen}{solution}} & désigne "option5" comme solution (T), les autres étant fausses (F),\\
& puis la code en une chaîne de caractères "00001"\\
{\it\textcolor{vertmoyen}{sol}} & ajoute la solution codée\\
{\it\textcolor{vertmoyen}{reponse}} & ajoute la solution décodée\\
{\it\textcolor{vertmoyen}{type}} & indique le type de question, i.e. "schoice"\\
{\it\textcolor{vertmoyen}{point}} & donne le nombre de points pour cette solution, i.e. 1 pt
\end{tabular}
\end{beamerboxesrounded}
\end{frame}
\begin{frame}[fragile]
\frametitle{Question : type mchoice}
{\tiny
\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hldef{question[[}\hlnum{2}\hldef{]]} \hlkwb{<-} \hlkwd{paste}\hldef{(}\hlsng{"option"}\hldef{,} \hlnum{1}\hlopt{:}\hlnum{5}\hldef{)}
\hldef{solution} \hlkwb{<-} \hlkwd{mchoice2string}\hldef{(}\hlkwd{c}\hldef{(T, F, T, F, T))}
\hldef{sol} \hlkwb{<-} \hlkwd{c}\hldef{(sol, solution)}
\hldef{response[[}\hlnum{2}\hldef{]]} \hlkwb{<-} \hldef{question[[}\hlnum{2}\hldef{]][}\hlkwd{string2mchoice}\hldef{(solution)]}
\hldef{type} \hlkwb{<-} \hlkwd{c}\hldef{(type,} \hlsng{"mchoice"}\hldef{)}
\hldef{point} \hlkwb{<-} \hlkwd{c}\hldef{(point,} \hlkwd{sum}\hldef{(}\hlkwd{string2mchoice}\hldef{(solution)))}
\hldef{tol} \hlkwb{<-} \hlkwd{c}\hldef{(tol,} \hlnum{0}\hldef{)}
\end{alltt}
\end{kframe}
\end{knitrout}
}
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explication}
Similaire à une question de type "schoice".\\
La différence est que plusieurs options doivent êtres validées,\\
i.e. "option 1" "option 3" "option 5".
\end{beamerboxesrounded}
\end{frame}
\begin{frame}
\frametitle{A vous !}
Les fichiers formation\_qcm\_comptabilite.* ont déjà été créés.\\
Adaptez ces fichiers pour générer plusieurs versions des questions.
\vspace*{5mm}
\begin{beamerboxesrounded}%
[scheme=CommandeGrise, shadow=false]
{Exercice : Valeur Actuelle Nette}
Utilisez un générateur de nombres aléatoires.
\begin{itemize}
\item la variable {\it van.investment} prend une valeur aléatoire entière comprise entre 40'000 et 60'000\\
Aide : la commande \textit{sample(4:6, size = 1)} permet d'obtenir un nombre aléatoire entre 4 et 6.
\item la variable {\it van.rate} prend une valeur aléatoire parmi 0.06, 0.07 et 0.08
\end{itemize}
\end{beamerboxesrounded}
\vspace*{5mm}
\begin{beamerboxesrounded}%
[scheme=CommandeGrise, shadow=false]
{Exercice : Rôle de l'amortissement}
Modifiez l'ordre des réponses (type "mchoice").
\end{beamerboxesrounded}
\end{frame}
\begin{frame}
\frametitle{A vous : prêts pour le challenge ?}
\begin{columns}[T] % align columns
\begin{column}{.48\textwidth}
\begin{beamerboxesrounded}%
[scheme=CommandeGrise, shadow=false]
{Exercice}
Créez une question de type "schoice" demandant de sélectionner le chef lieu d'un canton, dont le nom est tiré au hasard à partir d'une \href{https://www.travailler-en-suisse.ch/villes-et-cantons-suisses.html}{liste de cantons}.
\begin{itemize}
\item Le fichier .R a déjà été créé, ainsi que le fichier de données
\item Modifiez les \textcolor{vertmoyen}{lignes 44-45} du fichier formation\_qcm\_canton.Rnw
\end{itemize}
\end{beamerboxesrounded}
\end{column}%
\hfill%
\begin{column}{.48\textwidth}
\begin{beamerboxesrounded}%
[scheme=CommandeGrise, shadow=false]
{Exercice}
Créez une question de type "mchoice" demandant de sélectionner les cantons dont le \href{https://fr.wikipedia.org/wiki/Canton_(Suisse)}{français est une langue officielle}.
\begin{itemize}
\item Le fichier .R a déjà été créé, ainsi que le fichier de données
\item Modifiez \textcolor{vertmoyen}{lignes 51-52} du fichier formation\_qcm\_canton.Rnw
\end{itemize}
\end{beamerboxesrounded}
\end{column}%
\end{columns}
\end{frame}
\begin{frame}[fragile]
\frametitle{Question : type num}
{\tiny
\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hldef{question[[}\hlnum{3}\hldef{]]} \hlkwb{<-} \hlsng{""}
\hldef{solution} \hlkwb{<-} \hlkwd{round}\hldef{(}\hlkwd{mean}\hldef{(x), nbdecimal)}
\hldef{sol} \hlkwb{<-} \hlkwd{c}\hldef{(sol, solution)}
\hldef{response[[}\hlnum{3}\hldef{]]} \hlkwb{<-} \hldef{solution}
\hldef{type} \hlkwb{<-} \hlkwd{c}\hldef{(type,} \hlsng{"num"}\hldef{)}
\hldef{point} \hlkwb{<-} \hlkwd{c}\hldef{(point,} \hlnum{3L}\hldef{)}
\hldef{tol} \hlkwb{<-} \hlkwd{c}\hldef{(tol, precision)}
\end{alltt}
\end{kframe}
\end{knitrout}
}
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explication}
Une valeur numérique est demandée.\\
Le nombre de points accordés en cas de réponse correcte est de 3 pts.
\end{beamerboxesrounded}
\end{frame}
\begin{frame}
\frametitle{A vous !}
\begin{beamerboxesrounded}%
[scheme=CommandeGrise, shadow=false]
{Exercice}
Créez une question de type "num" demandant de calculer le $x$ pourcent de $y$, $x$ et $y$ étant aléatoires.
\begin{itemize}
\item Créez le fichier de script *.R\\
Aide : la commande \textit{sample(1:100, size = 1)} permet d'obtenir un nombre aléatoire entre 1 et 100
\item Créez le fichier d'énoncé *.Rnw\\
Attribuez 2 points à cette question.
\end{itemize}
\end{beamerboxesrounded}
\end{frame}
\begin{frame}[fragile]
\frametitle{Question : type string}
{\tiny
\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hldef{question[[}\hlnum{4}\hldef{]]} \hlkwb{<-} \hldef{dat[}\hlnum{2}\hldef{, selectedindex]}
\hldef{solution} \hlkwb{<-} \hldef{dat[}\hlnum{1}\hldef{, selectedindex]}
\hldef{sol} \hlkwb{<-} \hlkwd{c}\hldef{(sol, solution)}
\hldef{response[[}\hlnum{4}\hldef{]]} \hlkwb{<-} \hldef{solution}
\hldef{type} \hlkwb{<-} \hlkwd{c}\hldef{(type,} \hlsng{"string"}\hldef{)}
\hldef{point} \hlkwb{<-} \hlkwd{c}\hldef{(point,} \hlnum{1L}\hldef{)}
\hldef{tol} \hlkwb{<-} \hlkwd{c}\hldef{(tol,} \hlnum{0}\hldef{)}
\end{alltt}
\end{kframe}
\end{knitrout}
}
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explication}
Une chaîne de caractères est attendue.\\
Les données ont été générées dans le script *.R (i.e. la matrice "dat") ainsi que le numéro de la ligne (i.e. "selectedindex")
\end{beamerboxesrounded}
\end{frame}
\begin{frame}
\frametitle{A vous !}
\begin{beamerboxesrounded}%
[scheme=CommandeGrise, shadow=false]
{Exercice}
Créez une question de type "string" demandant de le code de 3 lettres représentant un pays selon la norme ISO 3166-1 alpha-3 , tiré aléatoirement parmi une liste de pays.\\
\vspace{3mm}
Une liste est disponible sous\\ \href{https://en.wikipedia.org/wiki/ISO\_3166-1\_alpha-3}{https://en.wikipedia.org/wiki/ISO\_3166-1\_alpha-3}
\begin{itemize}
\item Créez le fichier de script *.R\\
\item Créez le fichier d'énoncé *.Rnw\\
Attribuez 1 point à cette question.
\end{itemize}
\end{beamerboxesrounded}
\end{frame}
% !TeX root = ../teach.Moodle.Latex.R
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% %%
%% Pastille %%
%% Test %%
%% %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\section{Conception : Activité Test (Moodle)}
\begin{frame}
\frametitle{Activité test : \'Etapes}
\begin{enumerate}
\item RStudio/Posit : exportez en XML par la commande {\it\textcolor{vertmoyen}{exams2moodle()}}, avec
\begin{itemize}
\item le nom souhaité (name = ...)
\item le nombre de versions (n = ...)
\end{itemize}
\item Moodle : Importez le fichier obtenu dans la banque de questions
\item Moodle : Insérez une activité Test
\setbeamertemplate{enumerate items}[default]
\begin{enumerate}
\item Ajoutez les "questions"/exercices, de type aléatoires
\item\label{points} Eventuellement rectifiez le nombre (total) de points par exercice
\end{enumerate}
\setbeamertemplate{enumerate items}[circle]
\item Moodle : Finalisez le paramétrage (si évaluation notée)
\end{enumerate}
\end{frame}
\begin{frame}
\frametitle{Activité test : \'Etape 3.2}
\begin{beamerboxesrounded}%
[scheme=CommandeRouge, shadow=false]
{Explication : nombre de points}
Le nombre de points $n_i$ par réponse $i$ a été spécifié. Changer le nombre total de points $N$ d'un exercice revient à attribuer un nombre de points proportionnel à $n_i$.
\end{beamerboxesrounded}
\end{frame}
\begin{frame}[fragile]
\frametitle{A vous !}
\begin{beamerboxesrounded}%
[scheme=CommandeGrise, shadow=false]
{Exercice}
Utilisez votre production pour créer une activité test.\\
\begin{enumerate}
\item Générez 3 versions pour créer le fichier XML.
\item Importez votre fichier dans la base de questions..
\item Créez une activité test composée de vos 3 questions (utilisez Question Aléatoires).
\item Modifiez le nombre de points à 2 pour la question sur les cantons suisses.
\item Testez !
\end{enumerate}
\end{beamerboxesrounded}
\end{frame}
% !TeX root = ../teach.Moodle.Latex.R
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% %%
%% Pastille %%
%% OER %%
%% %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\section{Open Educational Resources}
\begin{frame}
\frametitle{Open Educational Resources (\href{https://en.wikipedia.org/wiki/Open_educational_resources}{OER})}
% https://www.zhaw.ch/en/library/research-teaching/open-educational-resources/
Sur ce principe, une base de questions initiales pour les statistques est mise à disposition sous licence \href{https://creativecommons.org/share-your-work/cclicenses/}{\ccbysa}.
\vspace{5mm}
\begin{beamerboxesrounded}%
[scheme=CommandeVerte, shadow=true]
{Demande}
Contribuez à son expansion afin que tous nous en profitions !
\end{beamerboxesrounded}
\end{frame}
\begin{frame}
\frametitle{Attestation didactique}
\begin{beamerboxesrounded}%
[scheme=CommandeVerte, shadow=false]
{Condition de réussite}
Participation à l'atelier "Contribution OER"
selon votre domaine de compétences et évaluation positive.
\begin{enumerate}
\item 3 questions de types différents (parmi "schoice", "mchoice", "num", "string")
\item \'Evaluation (formelle) des questions attribuées : évaluation des questions de vos pairs
\item \'Evaluation (formelle) positive de l'instructeur
\end{enumerate}
\end{beamerboxesrounded}
\end{frame}
\begin{frame}
\frametitle{A vous !}
\begin{beamerboxesrounded}%
[scheme=CommandeGrise, shadow=false]
{Exercice}
\begin{enumerate}
\item Créez un projet "OER"
\item Importez le fichier zippé OER.zip
\item Créez $n=1$ version HTML des exercices
\item {\it Enjoy!}
\end{enumerate}
\end{beamerboxesrounded}
\end{frame}
% !TeX root = ../teach.Moodle.Latex.R
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% %%
%% Pastille %%
%% Bibliographie %%
%% %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%\section*{Bibliographie}
\begin{frame}
\frametitle{Bibliographie}
\nocite{*}
% \printbibliography[heading=bibintoc, title={Bibliographie}]
\printbibliography[heading=none]
\end{frame}
\fi
\end{document}
c4science · Help