csvlink = “https://docs.google.com/spreadsheet/pub?key=0AnyleEGvTOmedF9Vdm1ldnA2Qi1sZm83dVNBeXVIU1E&output=csv”
d = fetchGoogle(csvlink)
names(d)
dnames = c(“Never” = 0, “Sometimes” = 1, “About half the time” = 2, “Often” = 3, “Always” = 4)
d$Taste = revalue(d$Taste, dnames)
d$Conv = revalue(d$Conv, dnames)
d$Content = revalue(d$Content, dnames)
d$Protein = revalue(d$Protein, dnames)
d$Fat = revalue(d$Fat, dnames)
d$Vit = revalue(d$Vit, dnames)
specnames = c(“None” = 0, “No fish or seafood” = 1, “Gluten-free” = 1, “Food Allergies” = 1, “pescetarian” = 1, “Vegitarian” = 1, “Don't eat red meat” = 1, “Lactose-intolerant” = 1)
d$specNeeds = revalue(d$specNeeds, specnames)
head(d)
d$Carb = revalue(d$Carb, dnames)
head(d)
m = lm(Useful ~ Conv, data = d)
coef(m)
m = lm(Useful ~ Protein, data = d)
coef(m)
m = lm(Carb ~ Protein, data = d)
coef(m)