Skip to content

Instantly share code, notes, and snippets.

@cdesante
Created October 23, 2012 17:16
Show Gist options
  • Save cdesante/3940159 to your computer and use it in GitHub Desktop.
Save cdesante/3940159 to your computer and use it in GitHub Desktop.
cast4
#Truncate Data:
party.and.ideology<- ANES[,c(1, 12, 14)]
head(party.and.ideology)
#Step 1 : Melt
party.and.ideology.year <- melt(party.and.ideology, id=c("year"), na.rm=TRUE)
head(party.and.ideology.year)
#Step 1 : Cast
party.and.ideology.means.over.time <- (cast(party.and.ideology.year,
year~variable, mean, na.rm=T) )
party.and.ideology.means.over.time
dim(party.and.ideology.means.over.time)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment