Publications by jenny hsu

dietary plot -aileen study2

QQplot library(reshape2) foodL <- melt(food, id= 'ID') dtafood <-split(foodL, foodL$variable) lapply(dtafood, function(x){ qqnorm(x$value) qqline(x$value, col = "blue") legend('topleft', paste("Food", x$variable[1], sep = "=")) }) Histogram foodL <- melt(food, id= 'ID') dtafood <-split(foodL, foodL$variable) lapply(dtafood, func...

180 sym R (5247 sym/10 pcs) 58 img