[Hackathon-list] Iriscore

My attempt at Gabba! In case anyone is at all interested. These lines summarize it. p <- function(row) phrase(key = 30, speed = row$Sepal.Length - 1, pickup = scales$major[round(row$Sepal.Width - 1)], drums = row$Petal.Length > 3, rhythm = RHYTHMS[[row$rhythm]]) iris$rhythm <- as.numeric(iris$Species) is <- order(iris$Petal.Width)[seq(1, 150, length.out = 12)] play(do.call(c,lapply(is, function(i) p(iris[i,])))) Here's more. It might change. http://small.dada.pink/krounq/examples/gabber.R You might find it more interesting once I switch the iris data for RIPE Atlas data.