rm(list=ls())  # Clear workspace
gc()
if(!require("bruceR")) install.packages("bruceR", dep = TRUE);
library("bruceR")
set.wd()  # Set working directory to current file path
df = import("Disability-Stereotypes-Intergroup-Contact-Data.xlsx",sheet="Stereo_Inter_Data",as="data.table")
#View(df)
names(df)
head(df)
Freq(df$Age)
Freq(df$Gender, labels=c("male", "female"))
Freq(df$Grade, labels=c("Freshman", "Sophomore", "Junior", "Senior") )
Freq(df$Residence, labels=c("Rural", "Urban") )
Freq(df$Cont_Freq, labels=c("Never", "Rarely", "Often", "Always") )
Freq(df$Media_Internet)
Freq(df$Encountered_daily_life)
Freq(df$Classmates_with_disabilities)
Freq(df$Friends_relatives_disabilities)
df = import("Disability-Stereotypes-Intergroup-Contact-Data.xlsx",sheet="Stereo_Inter_Data",as="data.table")
#Alpha(df, "B", 1:23, rev=cc("B4, B6, B14, B15, B17, B18, B21"), digits = 3)
Alpha(df, "B", 1:23, digits = 3)
df = import("Disability-Stereotypes-Intergroup-Contact-Data.xlsx",sheet="Stereo_Inter_Data",as="data.table")
#Alpha(df, "C", 1:10, rev=cc("C5, C6, C7"), digits = 3)
Alpha(df, "C", 1:10, digits = 3)
