0203_testing.Rmd

# 362: Psychological Testing {-#testing}

```{r setup, include=FALSE}
knitr::opts_chunk$set(cache=FALSE, dev='pdf')
first_day <- as.Date("2021-01-25")
cache=F
number_of_classes=29
number_of_weeks=15
source("scheduler.R")

####
#devtools::install_github("crsh/citr")
library(tidyverse)
library(citr)
library(RefManageR)



bib <- ReadBib("book.bib")
bib <- c(bib, as.BibEntry(citation()))
bib[length(bib)]$key = "Rcite"


topic=c(
  "Foundations and Nature of Testing", 
  "History of Testing",
  "Ethical and Social Considerations in Testing",
  "Norms and the Meaning of Test Scores",
  "Classical Test Theory",
  "Reliability",
  "Catch Up Week",
  "Validity",
  "Item Analysis", 
  "Factor Analysis",
  "Item Response Theory",
  "Practical Testing Things",
  "Ability Testing",
  "Personality Testing", 
  "Review", #Special Topics",
  "Other Assessment Techniques", 
  "Modern Development and Applications of Testing", 
  "Review"
  )
  
  
classschedule <- data.frame(module = 1:number_of_weeks)
classschedule$start <- advdate(first_day,classschedule$module,weekday_due= "m")
classschedule$topic <- topic[1:number_of_weeks]
classschedule$week <- advdate(first_day,classschedule$module)


```

## Course Description   {-}

This course provides an overview of the development and nature of psychological tests with applications to school counseling, business, and clinical practice. The purpose of the course is to provide students with an understanding of the principles of measurement as applied to group standardized measures of achievement, special aptitude, intelligence, personality, interests and distress for use in counseling.  Format will consist primarily of lectures along with group participation activities. 


### Course Objectives:   {-}
- To acquaint you with the fundamental vocabulary and logic of psychological measurement and behavioral assessment.
- To develop your capacity for critical judgment of the adequacy of measures purported to assess behavior in the role of theory development.
- To acquaint you with some of the relevant literature in personality assessment, psychometric theory and practice, and methods of observing and measuring behavior.
- To instill in you an appreciation of and an interest in the principles and methods of psychometric theory in general and behavior assessment in particular.
- This course is not designed to make you into an accomplished psychometrist (one who gives tests) nor is it designed to make you a skilled psychometrician (one who constructs tests), nor will it give you "hands on" experience with psychometric computer programs. Rather it is aimed to allow you to understand the fundamental theoretical issues concerning both the psychometrist and the psychometrician.
- Because modern psychometrics and statistics may be done using open source software such as R, examples will be presented in R.

## Materials   {-}
### Texts   {-}
#### Required   {-}

```{r, echo = FALSE, results="asis"} 
bib[sort(c("anastasi1997"))]
``` 


##### How to use the required text:   {-}

The text [@anastasi1997] is intended to supplement the lectures. The lectures don't follow the order of chapters in the text and the text covers some material that won't be covered in the lectures, i.e., not all the information in each chapter is perfectly pertinent to the course requirements.


## Course Assignments    {-}
### Grading Policy   {-}

```{r child = './common/content/grading.Xmd'}
```

### Quizzes   {-}
There will be 6 quizzes in this course. These will be approximately every three weeks. The best 5 out of 6 quiz grades will be used to determine your total quiz grade.  You can drop 1 of the quizzes for any reason.


#### Quiz Dates   {-}

- Quiz 1: Friday, `r advdate(first_day, 3, weekday_due="f")`

- Quiz 2: Friday, `r advdate(first_day, 6, weekday_due="f")`

- Quiz 3: Friday, `r advdate(first_day, 10, weekday_due="f")`

- Quiz 4: Friday, `r advdate(first_day, 13, weekday_due="f")`

- Quiz 5: Friday, `r advdate(first_day, 15, weekday_due="f")`

- Quiz 6: During Finals, `r advdate(first_day, 16, weekday_due="f")`


### Take Home Assignments   {-}
There are four large take-home assignments. Two are qualitative and two are quantitative. 


I will provide more specific written guidelines at least two weeks before each assignment is due. You have to submit assignment 1 because I give extensive feedback that will help you on later assignments. However, you may skip assignment 2 or 3.


#### Assignment Dates   {-}

- Assignment 1: Friday, `r advdate(first_day, 7, weekday_due="f")`: Set 1 and Critique of an online test.

- Assignment 2: Friday, `r advdate(first_day, 13, weekday_due="f")`: Set 2 and Critique of a testing-related popular media article.

- Assignment 3: Friday, `r advdate(first_day, 15, weekday_due="f")`: Set 3 and Critique of a testing-related YouTube video.



## Engagement Activities   {-}

There will be multiple engagement activities in this course. These activities will allow you engage with the material for each module. Details about the specific activities will be provided on canvas. Students must complete two activities per module.


## Grading Weighting   {-}

- 150 points of your grade will be determined by your best five (5) quizzes.
- 150 points of your grade will be determined by your best three (3) take-home assignments.
- 50 points of your grade will be determined by your engagement.



## Schedule {-}

```{r message = FALSE, warning = FALSE, echo = FALSE}

classschedule %>% 
  DT::datatable(rownames = FALSE,
                class = 'cell-border stripe',
                #filter = list(position = 'top'),
                options = list(pageLength = nrow(classschedule$module), 
                           autoWidth = FALSE,
                           bInfo = FALSE,
                           paging = FALSE))
```