tmp_getUnidades<- function (datos, prod) {
temp<-tapply(datos$Cantidad,list(datos$IdEncuestado,datos$IdAlternativa),sum)
temp[is.na(temp)]<-0
temp<-temp[,-which(colnames(temp)==999)]
colnames(temp)<-prod
temp
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.