# NOT RUN {
library(CytobankAPI)
cyto_session <- authenticate(site="premium", username="myusername", password="mypassword")
exptno<-2
popsofinterest1<-c("CD4 T cells","NK cells")
popsinterest<-getpops(popsofinterest1,exptno,cyto_session)
fcs<-getfcsfiles(exptno,cyto_session)
results<-statistics.event_counts(cyto_session, exptno, gate_version = 1,
compensation_id=1,fcs_files=fcs,populations = popsinterest,output = "default",
timeout = UserSession@long_timeout)
parseevents(results,popsinterest,fcs)
# }
Run the code above in your browser using DataLab