load("GPAGender.rda")
GPAGender <- transform(GPAGender, Sex = ifelse(GenderCode==0, "Female", "Male") )
# GPAGender <- subset(GPAGender, select = - GenderCode)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.