# 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)
markersofinterest1<-c("CD3","CD56")
markersofinterest<-getmarkers(markersofinterest1,exptno,cyto_session)
results<-statistics.general(UserSession=cyto_session, experiment_id=2, gate_version = -1,
compensation_id=1,fcs_files=fcs, populations = popsinterest,
output = "default",timeout = UserSession@long_timeout)
parsestats(results,popsinterest,fcs,markersofinterest)
# }
Run the code above in your browser using DataLab