Skip to content

Instantly share code, notes, and snippets.

@anglilian

anglilian/6.2 Makeup Work

Created February 24, 2020 11:26
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 anglilian/2d391e2f894b1cb283f0881000560282 to your computer and use it in GitHub Desktop.
Save anglilian/2d391e2f894b1cb283f0881000560282 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
6.2 Makeup Work
diamond <- read.csv("diamond.csv") #import data
member <- c()
nonmember <-c()
for (x in 1:3) { #iterate over each row
member[x] <- diamond$Member.Number.of.purchases[x]/(diamond$Member.Number.of.online.visitors[x]+diamond$Member.Number.of.purchases[x])*100 #percentage of members who bought
nonmember[x] <- diamond$Non.Member.Number.of.purchases[x]/(diamond$Non.Member.Number.of.online.visitors[x]+diamond$Non.Member.Number.of.purchases[x])*100 #percentage of nonmembers who made purchases
}
membership <- rbind(member, nonmember) #creating a table
colnames(membership) <- c("31-40","41-50", "51-60") #changing the table head
membership
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment