# NOT RUN {
f <- Cy5_100nM$f
acqTime <- 2E-6
f <- as.vector(f)
time <- (1:length(f))*acqTime
cy5 <- data.frame(t = time, f)
g <- fcs(x = cy5$f)
len <- 1:length(g)
tau <-cy5$t[len]
G <- data.frame(tau,g)
sfcs <- simplifyFCS(G$g, G$tau, step = 0.5)
plot(sfcs$g~sfcs$tau, log = "x", type = "l",
xlab = expression(tau(s)),
ylab = expression(G(tau)), main = "Cy5")
# Comparison, original with simplify
plot(G, type = 'l', log = 'x')
lines(sfcs$g~sfcs$tau, col = "red")
# }
Run the code above in your browser using DataLab