मैं परीक्षा पैकेज की सहायता से मूड के लिए एक सरल अभ्यास स्थापित करने का प्रयास कर रहा हूं। ऐसा लगता है कि मुझे कुछ याद आ रहा है और मैं जिस फ़ाइल को मूडल में आयात करता हूं उसमें वे सभी आइटम शामिल नहीं हैं जिन्हें शामिल किया जाना चाहिए। कोड नीचे दिखाई देता है। मैं किसी भी संकेत की सराहना करता हूं जो मुझे इस समस्या को हल करने में मदद कर सकता है। कोड इस प्रकार है:

    <<echo=FALSE, results=hide>>=
    id     <- seq(1:220)
    age    <- round(runif(220, 18, 60), 2)
    weight <- round(runif(220, 45,100), 2)
    gender <- sample(c("male", "female"), 220, replace=T)
    mydata <- data.frame(cbind(id, gender, age, weight))
    mydata$id     <- as.numeric(mydata$id)
    mydata$age    <- as.numeric(mydata$age)
    mydata$weight <- as.numeric(mydata$weight)
    write.csv(mydata, "DataQuiz1.csv", row.names = FALSE, quote = FALSE)
    @    

    \begin{question}
    Using the data provided in \url{DataQuiz1.csv} 
    \begin{answerlist}
    \item Report the variance of participants' \texttt{weight} (rounded up to two decimal places).
    \item Report what is the \texttt{age} of the youngest person (rounded up to two decimal places).
    \item Report wht is the \texttt{age} of the eldest participant (rounded up to two decimal places).
    \item Indicate what is the 3rd quartile for the variable \texttt{weigh}  (rounded up to two places).
    \item Write down how many participants are included in the \texttt{DataQuiz1}.
    \end{answerlist}
    \end{question}

    \begin{solution}
    <<echo=FALSE, results=hide, fig=TRUE>>=
    varsol  <- var(mydata$weight)
    minsol  <- min(mydata$age)
    maxsol  <- max(mydata$age)
    sol1   <-  print (summary(mydata)[5, 4 ])
    sol2  <- nrow(mydata)
    solutions <- c(varsol, minsol, maxsol, sol1, sol2)
    answerlist(ifelse(solutions, "True", "False"))
    @ 


   To replicate the analysis in R:
    \begin{verbatim}
    ## data
    mydata <- read.csv("DataQuiz1.csv")
    ## To find the variance for weight:
    var(mydata$weight)
    ## To find the minimum value for age:
    min(mydata$age)
    ## To find the maximum value for age:
    max(mydata$age)
    ## To find what is the 3rd Quartile of weight 
    summary(mydata$weight) (and check the fifth row, fourth column)
    ## To find out how many participants
    nrow(mydata)
    \end{verbatim}

    \end{solution}

    %% \exname{find_the_variance_and_minimum}
    %% \extype{num}
    %% \exsolution{\Sexpr{fmt(c=(varsol | minsol | maxsol | sol1 | sol2), 2)}}
    %% \exclozetype{num|num|num|num|num}
    %% \extol{0.01}



0
thanmour 26 सितंबर 2020, 20:01

1 उत्तर

सबसे बढ़िया उत्तर

व्यायाम के साथ तीन मुद्दे हैं जो इसे सही ढंग से काम करने से रोकते हैं:

  1. तीसरे चतुर्थक की गणना print (summary(mydata)[5, 4 ]) के साथ करने पर एक वर्ण प्राप्त होता है न कि एक अंकीय आउटपुट। बाद में स्वरूपण आदि एक संख्या के रूप में काम नहीं करता है। इसके बजाय summary(mydata$weight)[5] या quantile(mydata$weight, 0.75) का उपयोग करें।
  2. extype को cloze होना चाहिए न कि num
  3. आदेश fmt(c=(varsol | minsol | maxsol | sol1 | sol2), 2) वह नहीं करता जो आप करना चाहते हैं। इसके बजाय paste(fmt(solutions, 2), collapse = "|") का प्रयोग करें। (ध्यान दें कि उसके लिए ऊपर फिक्स इश्यू 1 होना जरूरी है।)

कुछ और अभ्यास को सुव्यवस्थित करने के साथ ऐसा दिखता है:

<<echo=FALSE, results=hide>>=
id     <- seq(1:220)
age    <- round(runif(220, 18, 60), 2)
weight <- round(runif(220, 45,100), 2)
gender <- sample(c("male", "female"), 220, replace=TRUE)
mydata <- data.frame(cbind(id, gender, age, weight))
mydata$id     <- as.numeric(mydata$id)
mydata$age    <- as.numeric(mydata$age)
mydata$weight <- as.numeric(mydata$weight)
write.csv(mydata, "DataQuiz1.csv", row.names = FALSE, quote = FALSE)
@    

<<echo=FALSE, results=hide, fig=TRUE>>=
varsol  <- var(mydata$weight)
minsol  <- min(mydata$age)
maxsol  <- max(mydata$age)
sol1   <-  summary(mydata$weight)[5]
sol2  <- nrow(mydata)
solutions <- c(varsol, minsol, maxsol, sol1, sol2)
@ 

\begin{question}
Using the data provided in \url{DataQuiz1.csv} 
\begin{answerlist}
\item Report the variance of participants' \texttt{weight} (rounded up to two decimal places).
\item Report what is the \texttt{age} of the youngest person (rounded up to two decimal places).
\item Report wht is the \texttt{age} of the eldest participant (rounded up to two decimal places).
\item Indicate what is the 3rd quartile for the variable \texttt{weigh}  (rounded up to two places).
\item Write down how many participants are included in the \texttt{DataQuiz1}.
\end{answerlist}
\end{question}

\begin{solution}
Replicate the analysis in R:
\begin{verbatim}
## data
mydata <- read.csv("DataQuiz1.csv")
## To find the variance for weight:
var(mydata$weight)
## To find the minimum value for age:
min(mydata$age)
## To find the maximum value for age:
max(mydata$age)
## To find what is the 3rd Quartile of weight 
summary(mydata$weight)
## To find out how many participants
nrow(mydata)
\end{verbatim}
\end{solution}

%% \exname{find_the_variance_and_minimum}
%% \extype{cloze}
%% \exsolution{\Sexpr{paste(fmt(solutions, 2), collapse = "|")}}
%% \exclozetype{num|num|num|num|num}
%% \extol{0.01}
0
Achim Zeileis 27 सितंबर 2020, 05:23