#For use with all raw EQAO ISD file
#
#Use: df <- Re.FI(df)
#
#French Immersion is an elementary distinction. Secondary is addressed through course types
#
#Function determines whether the ISD is elementary or secondary assessments and recodes
Re.FI <- function(x){
ifelse("Background_FrenchImmersion" %in% colnames(x),
{x$FI_R <- ifelse(x$Background_FrenchImmersion == "-1", "Missing",
ifelse(x$Background_FrenchImmersion == "0", "Not FI",
ifelse(x$Background_FrenchImmersion == "1", "FI (A)",
ifelse(x$Background_FrenchImmersion == "2", "FI (B)",
ifelse(x$Background_FrenchImmersion == "3", "FI (C)",
ifelse(x$Background_FrenchImmersion == "4", "FI (G6)", "BadCode"
)
)
)
)
)
)}, x$FI_R <- "Secondary - Not Applicable"
)
return(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.