Load Packages

haven

# Check if haven is already installed and if it is, load it.
if (!require(haven)){
  # If it's not intalled, then tell R to install it.
  install.packages("haven", dependencies = TRUE)
  # Once it's installed, tell R to load it.
  library(haven)
}
Loading required package: haven

tidyverse

if (!require(tidyverse)){
  install.packages("tidyverse", dependencies = TRUE)
  require(tidyverse)
}

openxlsx

if (!require(openxlsx)){
  install.packages("openxlsx", dependencies = TRUE)
  require(openxlsx)
}
Loading required package: openxlsx

:::

Import Data

Excel

dataset.xls <- read.xlsx ("Harry Potter Data.xlsx", 
                         sheet = 1,
                         colNames = FALSE,
                         rowNames = FALSE,
                         detectDates = TRUE) 

CSV

dataset.csv <- read_csv ("Harry Potter Data2.csv")
Rows: 124 Columns: 90── Column specification ──────────────────────────────────────
Delimiter: ","
chr (90): StartDate, EndDate, Status, IPAddress, Progress,...
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

SPSS

dataset.spss <- read_sav ("Harry Potter Data.sav")

SPSS From The Web

dataset.spss.web <- read_sav ("https://osf.io/kd4ej/download")
LS0tCnRpdGxlOiAiTGVhcm4gUiAtIEltcG9ydCBEYXRhIgpvdXRwdXQ6IAogIGh0bWxfbm90ZWJvb2s6CiAgICB0aGVtZTogc2FuZHN0b25lCiAgICB0b2M6IHllcwogICAgdG9jX2Zsb2F0OiB5ZXMKLS0tCgojIyBMb2FkIFBhY2thZ2VzIHsudGFic2V0fQoKCiMjIGhhdmVuCgpgYGB7cn0KIyBDaGVjayBpZiBoYXZlbiBpcyBhbHJlYWR5IGluc3RhbGxlZCBhbmQgaWYgaXQgaXMsIGxvYWQgaXQuCmlmICghcmVxdWlyZShoYXZlbikpewogICMgSWYgaXQncyBub3QgaW50YWxsZWQsIHRoZW4gdGVsbCBSIHRvIGluc3RhbGwgaXQuCiAgaW5zdGFsbC5wYWNrYWdlcygiaGF2ZW4iLCBkZXBlbmRlbmNpZXMgPSBUUlVFKQogICMgT25jZSBpdCdzIGluc3RhbGxlZCwgdGVsbCBSIHRvIGxvYWQgaXQuCiAgbGlicmFyeShoYXZlbikKfQpgYGAKCiMjIHRpZHl2ZXJzZQpgYGB7cn0KaWYgKCFyZXF1aXJlKHRpZHl2ZXJzZSkpewogIGluc3RhbGwucGFja2FnZXMoInRpZHl2ZXJzZSIsIGRlcGVuZGVuY2llcyA9IFRSVUUpCiAgcmVxdWlyZSh0aWR5dmVyc2UpCn0KYGBgCgojIyBvcGVueGxzeApgYGB7cn0KaWYgKCFyZXF1aXJlKG9wZW54bHN4KSl7CiAgaW5zdGFsbC5wYWNrYWdlcygib3Blbnhsc3giLCBkZXBlbmRlbmNpZXMgPSBUUlVFKQogIHJlcXVpcmUob3Blbnhsc3gpCn0KYGBgCjo6OgoKIyBJbXBvcnQgRGF0YSB7LnRhYnNldH0KCgojIyBFeGNlbApgYGB7cn0KZGF0YXNldC54bHMgPC0gcmVhZC54bHN4ICgiSGFycnkgUG90dGVyIERhdGEueGxzeCIsIAogICAgICAgICAgICAgICAgICAgICAgICAgc2hlZXQgPSAxLAogICAgICAgICAgICAgICAgICAgICAgICAgY29sTmFtZXMgPSBGQUxTRSwKICAgICAgICAgICAgICAgICAgICAgICAgIHJvd05hbWVzID0gRkFMU0UsCiAgICAgICAgICAgICAgICAgICAgICAgICBkZXRlY3REYXRlcyA9IFRSVUUpIApgYGAKCiMjIENTVgpgYGB7cn0KZGF0YXNldC5jc3YgPC0gcmVhZF9jc3YgKCJIYXJyeSBQb3R0ZXIgRGF0YTIuY3N2IikKYGBgCgojIyBTUFNTCmBgYHtyfQpkYXRhc2V0LnNwc3MgPC0gcmVhZF9zYXYgKCJIYXJyeSBQb3R0ZXIgRGF0YS5zYXYiKQpgYGAKCiMjIFNQU1MgRnJvbSBUaGUgV2ViCmBgYHtyfQpkYXRhc2V0LnNwc3Mud2ViIDwtIHJlYWRfc2F2ICgiaHR0cHM6Ly9vc2YuaW8va2Q0ZWovZG93bmxvYWQiKQpgYGAKCgoKCgo=