https://github.com/cran/highSCREEN
Tip revision: 99982c05ee20e6cbd37cf7ab7fa665b495fda43b authored by Ivo D. Shterev on 12 February 2021, 09:10:02 UTC
version 0.4
version 0.4
Tip revision: 99982c0
extractplate.R
extractplate = function(dat0, dat1, plate, replicate){
dat0 = dat0[[replicate]]
dat1 = dat1[[replicate]]
if (plate == 1){
dat0 = dat0[seq(1,nrow(dat0),2),]
dat0 = dat0[,seq(1,24,2)]
dat1 = dat1[seq(1,nrow(dat1),2),]
dat1 = dat1[,seq(1,24,2)]
}
else if (plate == 2){
dat0 = dat0[seq(1,nrow(dat0),2),]
dat0 = dat0[,seq(2,24,2)]
dat1 = dat1[seq(1,nrow(dat1),2),]
dat1 = dat1[,seq(2,24,2)]
}
else if (plate == 3){
dat0 = dat0[seq(2,nrow(dat0),2),]
dat0 = dat0[,seq(1,24,2)]
dat1 = dat1[seq(2,nrow(dat1),2),]
dat1 = dat1[,seq(1,24,2)]
}
else if (plate == 4){
dat0 = dat0[seq(2,nrow(dat0),2),]
dat0 = dat0[,seq(2,24,2)]
dat1 = dat1[seq(2,nrow(dat1),2),]
dat1 = dat1[,seq(2,24,2)]
}
else
stop ("unknown plate.")
datall = list(dat0=dat0, dat1=dat1)
return(datall)
}