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=