Skip to content

Instantly share code, notes, and snippets.

@bistaumanga

bistaumanga/ioe.R

Last active August 29, 2015 14:05
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save bistaumanga/2518f022a9801442f8ff to your computer and use it in GitHub Desktop.
Save bistaumanga/2518f022a9801442f8ff to your computer and use it in GitHub Desktop.
Download ZIP
Ioe revised entrance analysis
Raw
ioe.R
ioe1 <- read.csv('/Volumes/umb/ioe entrance/ioe-first.csv')
ioe1 <- subset(ioe1, select = c(1:6))
ioe2 <- read.csv('/Volumes/umb/ioe entrance/ioe second.csv')
require('dplyr')
ioe_joined = inner_join(ioe1, ioe2, by = "ROLLNO")
ioe_joined$diff_percentage <- ioe_joined$SCORE.x - ioe_joined$SCORE.y
ioe_contrasts <- filter(ioe_joined, diff_percentage > 0.1 | diff_percentage < -0.1)
write.csv(ioe_contrasts, "~/changed.csv")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment