Cognitive Load

Share:

Description

Educational researchers randomly assigned 28 ninth-year students in Australia to receive coordinate geometry training in one of two ways: a conventional way and a modified way. After the training, the students were asked to solve a coordinate geometry problem. The time to complete the problem was recorded, but five students in the “conventional” group did not complete the solution in the five minute alloted time.

Usage

1

Format

A data frame with 28 observations on the following 3 variables.

Time

the time (in seconds) that the student worked on the problem

Treatment

factor variable with two levels—"Modified" and "Conventional"

Censored

1 if the individual did not complete the problem in 5 minutes, 0 if they did

Source

Ramsey, F.L. and Schafer, D.W. (2013). The Statistical Sleuth: A Course in Methods of Data Analysis (3rd ed), Cengage Learning.

References

Sweller, J., Chandler, P., Tierney, P. and Cooper, M. (1990). Cognitive Load as a Factor in the Structuring of Technical Material, Journal of Experimental Psychology General 119(2): 176–192.

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
str(case0402) # level 1 of Treatment is "Conventional" (1st alphabetically)
attach(case0402)  

boxplot(Time ~ Treatment) 
median(Time[Treatment=="Conventional"])-median(Time[Treatment=="Modified"])  
  
wilcox.test(Time ~ Treatment, exact=FALSE, correct=TRUE, 
  alternative="greater")  # Rank-sum test; alternative: group 1 is greater
wilcox.test(Time ~ Treatment, exact=FALSE, correct=TRUE, 
  alternative="two.sided", conf.int=TRUE)  # Use 2-sided to get confidence int.  
        
## DOT PLOTS FOR PRESENTATION 
xTreatment    <- ifelse(Treatment=="Conventional",1,2) # Make numerical values  
myPointCode   <- ifelse(Censored==0,21,24)  
plot(Time ~ jitter(xTreatment,.2),   # Jitter the 1's and 2's for visibility
     ylab="Completion Time (Sec.)",  xlab="Training Method (jittered)",
     main="Test Completion Times from Cognitive Load Experiment",
     axes=FALSE, pch=myPointCode, bg="green", cex=2, xlim=c(.5,2.5) )  
axis(2) # Draw y-axis as usual
axis(1, tick=FALSE,  at=c(1,2),  # Draw x-axis without ticks
  labels=c("Conventional (n=14 Students)","Modified (n=14 Students)") )  
legend(1.5,300, legend=c("Did not Complete in 300 sec","Completed in 300 sec."),
       pch=c(24,21), pt.cex=2, pt.bg="green")  
  
detach(case0402) 

Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker.