# NOT RUN {
library(CytobankAPI)
cyto_session <- authenticate(site="premium", username="myusername", password="mypassword")
markersofinterest<-c("CD3","CD56")
popsofinterest<-c("CD4 T cells","NK cells")
exptID=4
grouping<-list(c(1,2),c(3,4,5),c(6,7))
specimennames<-c("Patient1","Patient2","Control1")
means=T
percentevent(cyto_session,markersofinterest,popsofinterest,exptID,grouping,specimennames,means)
# }
Run the code above in your browser using DataLab