Load Packages

haven


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

tidyverse

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

openxlsx

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

Import data

Excel

dataset.xls <- read.xlsx ("Harry Potter Data.xlsx")

CSV

dataset.csv <- read_csv ("Harry Potter Data.csv")
Rows: 124 Columns: 90── Column specification ──────────────────────────────────────────────────────
Delimiter: ","
chr (90): StartDate, EndDate, Status, IPAddress, Progress, Duration (in se...
ℹ 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")

Openxlsx from the web

dataset.xls.web <- read.xlsx ("https://osf.io/7fz89/download")

CSV from the web

dataset.csv.web <- read_csv ("https://osf.io/wtghz/download")
Rows: 124 Columns: 90── Column specification ──────────────────────────────────────────────────────
Delimiter: ","
chr (90): StartDate, EndDate, Status, IPAddress, Progress, Duration (in se...
ℹ 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.
LS0tCnRpdGxlOiAiUiBJbXBvcnQgRGF0YSIKb3V0cHV0OiAKICBodG1sX25vdGVib29rOgogICAgdGhlbWU6IGZsYXRseQogICAgdG9jOiB5ZXMKICAgIHRvY19mbG9hdDogeWVzCi0tLQoKIyMgTG9hZCBQYWNrYWdlcyB7LnRhYnNldH0KCiMjIyBoYXZlbgpgYGB7cn0KCmlmICghcmVxdWlyZShoYXZlbikpewogIGluc3RhbGwucGFja2FnZXMoImhhdmVuIiwgZGVwZW5kZW5jaWVzID0gVFJVRSkKICBsaWJyYXJ5KGhhdmVuKQp9CmBgYAojIyMgdGlkeXZlcnNlCmBgYHtyfQppZighcmVxdWlyZSh0aWR5dmVyc2UpKXsKICBpbnN0YWxsLnBhY2thZ2VzKCJ0aWR5dmVyc2UiLCBkZXBlbmRlbmNpZXMgPSBUUlVFKQogIGxpYnJhcnkodGlkeXZlcnNlKX0KYGBgCgoKIyMjIG9wZW54bHN4CgpgYGB7cn0KaWYoIXJlcXVpcmUob3Blbnhsc3gpKXsKICBpbnN0YWxsLnBhY2thZ2VzKCJvcGVueGxzeCIsIGRlcGVuZGVuY2llcyA9IFRSVUUpCiAgbGlicmFyeShvcGVueGxzeCl9CmBgYAoKCgojIyBJbXBvcnQgZGF0YSB7LnRhYnNldH0KCiMjIyBFeGNlbAoKCmBgYHtyfQpkYXRhc2V0LnhscyA8LSByZWFkLnhsc3ggKCJIYXJyeSBQb3R0ZXIgRGF0YS54bHN4IikKYGBgCgojIyMgQ1NWCmBgYHtyfQpkYXRhc2V0LmNzdiA8LSByZWFkX2NzdiAoIkhhcnJ5IFBvdHRlciBEYXRhLmNzdiIpCgpgYGAKCiMjIyBTUFNTCmBgYHtyfQpkYXRhc2V0LnNwc3MgPC0gcmVhZF9zYXYgKCJIYXJyeSBQb3R0ZXIgRGF0YS5zYXYiKQpgYGAKCiMjIyBTUFNTIGZyb20gdGhlIHdlYgpgYGB7cn0KZGF0YXNldC5zcHNzLndlYiA8LSByZWFkX3NhdiAoImh0dHBzOi8vb3NmLmlvL2tkNGVqL2Rvd25sb2FkIikKYGBgCiMjIyBPcGVueGxzeCBmcm9tIHRoZSB3ZWIKYGBge3J9CmRhdGFzZXQueGxzLndlYiA8LSByZWFkLnhsc3ggKCJodHRwczovL29zZi5pby83Zno4OS9kb3dubG9hZCIpCmBgYAojIyMgQ1NWIGZyb20gdGhlIHdlYgpgYGB7cn0KZGF0YXNldC5jc3Yud2ViIDwtIHJlYWRfY3N2ICgiaHR0cHM6Ly9vc2YuaW8vd3RnaHovZG93bmxvYWQiKQpgYGAK