# NOT RUN {
#Example starting with obtaining data from Cytobank
library(CytobankAPI)
popsofinterest<-c("CD4 T cells","NK cells")
cyto_session <- authenticate(site="premium", username="myusername", password="mypassword")
exptno<-2
popsinterest<-getpops(popsofinterest,exptno,cyto_session)
fcs<-getfcsfiles(exptno,cyto_session)
type=TRUE
results<-analyzedata(cyto_session,markersofinterest,popsofinterest,exptno,type)
asinnorm(results,col=2,cofactor=5)
# }
# NOT RUN {
#Example with simple data matrix
data<-matrix(1:9,nrow=3,ncol=3,byrow=TRUE)
colnames(data)<-c("Control","Patient1","Patient2")
rownames(data)<-c("Marker1","Marker2","Marker3")
#Normalizing patient data to control sample with cofactor of 5
asinnorm(data,1,5)
# }
Run the code above in your browser using DataLab