# NOT RUN {
# Load the FCSlib package
library(FCSlib)
# As an example, we will use data from experiment adquisition
# of free Cy5 molecules diffusing in water at a concentration of 100 nM.
oldpar <- par(no.readonly = TRUE)
g <- gcf(x = Cy5$f, y = Cy5$f, xmean = mean(Cy5$f), ymean = mean(Cy5$f))
length <- 1:length(g)
par(mfrow=c(1,1))
plot(y = g, x = Cy5$t[length], log = 'x', type = 'l',
xlab = expression(tau(mu~s)), ylab = expression(G(tau)),
main = "Cy5 100nM")
par(oldpar)
# }
Run the code above in your browser using DataLab