Updates to work with exams2pdf

marcosmarva · Jun 23, 2017 · c28f141 · c28f141
1 parent 0f87791
commit c28f141
Show file tree

Hide file tree

Showing 199 changed files with 1,605 additions and 808 deletions.
diff --git a/.Rhistory b/.Rhistory
diff --git a/000001.Rnw b/000001.Rnw
@@ -1,68 +1,46 @@
 <<echo=FALSE, results=hide>>=
-
 ################################################################################
 # PostData Statistics: 
 # Fernando San Segundo, Marcos Marva
 # Web: www.postdata-statistics.com
 # Mail: postdatastatistics@gmail.com        (secondary: marcos.marva@gmail.es)
 ################################################################################
-
-## DATA GENERATION
 ## working with significant figures. Round numbers between 0 and 10 with between 3 up to 5 digits
 
+## DATA GENERATION
 library(MASS)
-signifDig = 4  
-
-# Set value to be rounded
 
+# Set a number to be rounded
 n.dig <- sample(6:10, size = 1)
 n.sigf <- sample(3:5, size = 1)
 options(digits=n.dig)
 n = runif(n = 1, min = 0, max = 10)
 
 ## QUESTION/ANSWER GENERATION
-
 sol = signif(x = n, digits = n.sigf) 
 
-
 ## QUESTION STATEMENT GENERATION
-
 if(language=='en'){
-  question=paste0("Round the number 
-\\[
-",n,"
-\\]
-to ",n.sigf," significant figures.")
-  
+  question=paste0("Round the number \\[ ",n," \\] to ",n.sigf," significant figures.")
   answer=paste0("The answer is ", sol)
-  
 }else if(language=='es'){
-  question=paste0("Redondea el n\\'umero 
-\\[
-",n,"
-\\]
-a ",n.sigf," cifras significativas.")
-  
+  question=paste0("Redondea el n\\'umero \\[ ",n," \\] a ",n.sigf," cifras significativas.")
   answer=paste0("La respuesta es ", sol)  
 }
-
 cat(question)
-
 @
 
   \begin{question}
-<<echo=False, results=tex>>=
+<<echo=False, results=tex,strip.white=false,strip.white=false,strip.white=false>>=
   cat(paste(question,collapse=""))
 @
   \end{question}
 
 \begin{solution}
-<<echo=False, results=tex>>=
+<<echo=False, results=tex,strip.white=false,strip.white=false,strip.white=false>>=
   cat(paste(answer,collapse=""))
 @
   \end{solution}
-
-
 %% META-INFORMATION
 %% \extype{num}
 %% \exsolution{\Sexpr{sol}}

diff --git a/000002.Rnw b/000002.Rnw
@@ -54,13 +54,13 @@ cat(question)
 @
 
   \begin{question}
-<<echo=False, results=tex>>=
+<<echo=False, results=tex,strip.white=false,strip.white=false,strip.white=false>>=
   cat(paste(question,collapse=""))
 @
   \end{question}
 
 \begin{solution}
-<<echo=False, results=tex>>=
+<<echo=False, results=tex,strip.white=false,strip.white=false,strip.white=false>>=
   cat(paste(answer,collapse=""))
 @
   \end{solution}

diff --git a/000003.Rnw b/000003.Rnw
@@ -54,13 +54,13 @@ cat(question)
 @
 
   \begin{question}
-<<echo=False, results=tex>>=
+<<echo=False, results=tex,strip.white=false,strip.white=false,strip.white=false>>=
   cat(paste(question,collapse=""))
 @
   \end{question}
 
 \begin{solution}
-<<echo=False, results=tex>>=
+<<echo=False, results=tex,strip.white=false,strip.white=false,strip.white=false>>=
   cat(paste(answer,collapse=""))
 @
   \end{solution}

diff --git a/000004.Rnw b/000004.Rnw
@@ -47,15 +47,15 @@ if(language=='en'){
 
 
 \begin{question}
-<<echo=False, results=tex>>=
+<<echo=False, results=tex,strip.white=false,strip.white=false,strip.white=false>>=
 cat(paste(question,collapse=""))
 @
 
 
 \end{question}
 
 \begin{solution}
-<<echo=False, results=tex>>=
+<<echo=False, results=tex,strip.white=false,strip.white=false,strip.white=false>>=
 cat(paste(answer,collapse=""))
 @
 \end{solution}

diff --git a/01010101.Rnw b/01010101.Rnw
@@ -6,53 +6,37 @@
 # Web: www.postdata-statistics.com
 # Mail: postdatastatistics@gmail.com        (secondary: marcos.marva@gmail.es)
 ################################################################################
-
+# calculate the mean value
 ## DATA GENERATION
-
-## QUESTION/ANSWER GENERATION
-
 signifDig <- 4
-
 (n <- sample(8:13, 1))
 (data <- c(sample(0:12, n)))
-
 (dataString = paste(data, collapse=", "))
-
 (sol <- signif(mean(data), digits = signifDig))
 
-
-
+## QUESTION/ANSWER GENERATION
 if(language=='en'){
   question=paste0(
-"Find the mean of this set of numbers:\\begin{center}",
-    dataString,
-    ".\\end{center} Round the result  to ", signifDig, " significant digits."
-  )
-
-  answer=paste0("The answer is ",
-    sol
+"Find the mean of this set of numbers:\\begin{center}", dataString, ".\\end{center} Round the result  to ", signifDig, " significant digits."
   )
+  answer=paste0("The answer is ", sol )
 }else if(language=='es'){
   question=paste0(
-    "Calcula la media de este conjunto de n\\'umeros:\\begin{center}",
-    dataString,
-    ".\\end{center}Redondea el resultado con ",
+    "Calcula la media de este conjunto de n\\'umeros:\\begin{center}", dataString, ".\\end{center}Redondea el resultado con ", 
     signifDig, " cifras significativas."
     )
-  answer=paste0("La respuesta es ",
-    sol
-    )
+  answer=paste0("La respuesta es ", sol )
 }
 @
 
 \begin{question}
-<<echo=False, results=tex>>=
+<<echo=False, results=tex,strip.white=false,strip.white=false,strip.white=false>>=
 cat(paste(question,collapse=""))
 @
 \end{question}
 
 \begin{solution}
-<<echo=False, results=tex>>=
+<<echo=False, results=tex,strip.white=false,strip.white=false,strip.white=false>>=
 cat(paste(answer,collapse=""))
 @
 \end{solution}

diff --git a/01010301.Rnw b/01010301.Rnw
@@ -47,13 +47,13 @@ if(language=='en'){
 @
 
 \begin{question}
-<<echo=False, results=tex>>=
+<<echo=False, results=tex,strip.white=false,strip.white=false,strip.white=false>>=
 cat(paste(question,collapse=""))
 @
 \end{question}
 
 \begin{solution}
-<<echo=False, results=tex>>=
+<<echo=False, results=tex,strip.white=false,strip.white=false,strip.white=false>>=
 cat(paste(answer,collapse=""))
 @
 \end{solution}

diff --git a/01020101.Rnw b/01020101.Rnw
@@ -46,13 +46,13 @@ if(language=='en'){
 @
 
 \begin{question}
-<<echo=False, results=tex>>=
+<<echo=False, results=tex,strip.white=false,strip.white=false,strip.white=false>>=
 cat(paste(question,collapse=""))
 @
 \end{question}
 
 \begin{solution}
-<<echo=False, results=tex>>=
+<<echo=False, results=tex,strip.white=false,strip.white=false,strip.white=false>>=
 cat(paste(answer,collapse=""))
 @
 \end{solution}

diff --git a/01020201.Rnw b/01020201.Rnw
@@ -46,13 +46,13 @@ if(language=='en'){
 @
 
 \begin{question}
-<<echo=False, results=tex>>=
+<<echo=False, results=tex,strip.white=false,strip.white=false,strip.white=false>>=
 cat(paste(question,collapse=""))
 @
 \end{question}
 
 \begin{solution}
-<<echo=False, results=tex>>=
+<<echo=False, results=tex,strip.white=false,strip.white=false,strip.white=false>>=
 cat(paste(answer,collapse=""))
 @
 \end{solution}

diff --git a/01020301.Rnw b/01020301.Rnw
@@ -16,7 +16,7 @@ signifDig <- 4
 (data <- c(sample(0:12, n, replace=TRUE)))
 
 ## QUESTION/ANSWER GENERATION
-(sol <- signif(var(data)), digits = signifDig))
+(sol <- signif(var(data), digits = signifDig))
 
 (dataString = paste(data, collapse=", "))
 
@@ -46,13 +46,13 @@ if(language=='en'){
 @
 
 \begin{question}
-<<echo=False, results=tex>>=
+<<echo=False, results=tex,strip.white=false,strip.white=false,strip.white=false>>=
 cat(paste(question,collapse=""))
 @
 \end{question}
 
 \begin{solution}
-<<echo=False, results=tex>>=
+<<echo=False, results=tex,strip.white=false,strip.white=false,strip.white=false>>=
 cat(paste(answer,collapse=""))
 @
 \end{solution}

diff --git a/01020401.Rnw b/01020401.Rnw
@@ -46,13 +46,13 @@ if(language=='en'){
 @
 
 \begin{question}
-<<echo=False, results=tex>>=
+<<echo=False, results=tex,strip.white=false,strip.white=false,strip.white=false>>=
 cat(paste(question,collapse=""))
 @
 \end{question}
 
 \begin{solution}
-<<echo=False, results=tex>>=
+<<echo=False, results=tex,strip.white=false,strip.white=false,strip.white=false>>=
 cat(paste(answer,collapse=""))
 @
 \end{solution}

diff --git a/01030401.Rnw b/01030401.Rnw
@@ -45,7 +45,7 @@ if(language=='en'){
  questions[2]= " Muestra 2"  
  questions[3]= " Muestra 3" 
  question=paste0("El histograma describe lo datos que representa uno de los diagramas de caja y bigotes, 
-\\textquestiondown con cu\\'al? ")
+\\textquestiondown cu\\'al es? ")
 }
 
 cat(question)
@@ -54,12 +54,12 @@ cat(question)
 
 @
 \begin{question}
-<<echo=False, results=tex>>=
+<<echo=False, results=tex,strip.white=false,strip.white=false,strip.white=false>>=
   cat(paste(question,collapse=""))
 @
 \begin{figure}[h!]
 \begin{center}
-<<fig=TRUE, height=7, width=7, echo=FALSE, eps=FALSE, results=hide>>=
+<<fig=TRUE, height=5, width=5, echo=FALSE, eps=FALSE, results=hide>>=
 par(mfrow=c(2,2))
 hist(unlist(lista[sol]), main = "", xlab = "", xlim=c(min(solData), max(solData)))
 boxplot(sample1, xlab = "", main="Sample 1",  horizontal = TRUE) 

diff --git a/01030402.Rnw b/01030402.Rnw
@@ -43,14 +43,14 @@ if(language=='en'){
  questions[2]= " Muestra 2"  
  questions[3]= " Muestra 3"  
  question=paste0("El diagrama de caja y bigotes describe los datos que representan uno de los histogramas, 
-          \\textquestiondown con cu\\'al?")
+          \\textquestiondown  cu\\'al es?")
 }
 
 cat(question)
 
 @
 \begin{question}
-<<echo=False, results=tex>>=
+<<echo=False, results=tex,strip.white=false,strip.white=false,strip.white=false>>=
   cat(paste(question,collapse=""))
 @
 

diff --git a/020001.Rnw b/020001.Rnw
@@ -57,11 +57,11 @@ Calculate $P(A\\cup B)$ with ",signifDig," significant digits.
   
 }else if(language=='es'){
     question=paste0("Los sucesos $A$ y $B$, cumplen:
-\\[
+$$
 P(A)=\\left(\\frac{",numPA,"}{",denPA,"}\\right) \\qquad
 P(B)=\\left(\\frac{",numPB,"}{",denPB,"}\\right) \\qquad
 P(A\\cap B)=\\left(\\frac{",numPAB,"}{",denPAB,"}\\right)
-\\]
+$$
 Calcula el valor de $P(A\\cup B)$. Utiliza ",signifDig," cifras significativas en tu respuesta.
 ")
   
@@ -74,15 +74,17 @@ cat(question)
 @
 
   \begin{question}
-<<echo=False, results=tex>>=
+<<echo=False, results=tex,strip.white=false,strip.white=false,strip.white=false>>=
   cat(paste(question,collapse=""))
 @
+
   \end{question}
 
 \begin{solution}
-<<echo=False, results=tex>>=
+<<echo=False, results=tex,strip.white=false,strip.white=false,strip.white=false>>=
   cat(paste(answer,collapse=""))
 @
+
   \end{solution}
 
 

diff --git a/020002.Rnw b/020002.Rnw
@@ -68,15 +68,17 @@ cat(question)
 @
 
   \begin{question}
-<<echo=False, results=tex>>=
+<<echo=False, results=tex,strip.white=false,strip.white=false,strip.white=false>>=
   cat(paste(question,collapse=""))
 @
+
   \end{question}
 
 \begin{solution}
-<<echo=False, results=tex>>=
+<<echo=False, results=tex,strip.white=false,strip.white=false,strip.white=false>>=
   cat(paste(answer,collapse=""))
 @
+
   \end{solution}
 
 

diff --git a/020003.Rnw b/020003.Rnw
@@ -68,15 +68,17 @@ cat(question)
 @
 
   \begin{question}
-<<echo=False, results=tex>>=
+<<echo=False, results=tex,strip.white=false,strip.white=false,strip.white=false>>=
   cat(paste(question,collapse=""))
 @
+
   \end{question}
 
 \begin{solution}
-<<echo=False, results=tex>>=
+<<echo=False, results=tex,strip.white=false,strip.white=false,strip.white=false>>=
   cat(paste(answer,collapse=""))
 @
+
   \end{solution}