if (FALSE) {
require(dplyr) # Not really necessary
# Load the data
data(batchExperiment)
# Process the afmexperiment
data <- afmContactPoint(batchExperiment, width = 50, mul1 = 1, mul2 = 10)
data <- afmDetachPoint(data, width = 50, mul1 = 1, mul2 = 10)
data <- afmBaselineCorrection(data)
data <- afmZeroPointSlope(data)
data <- afmIndentation(data)
data <- afmYoungModulus(data, thickness = 2e-7, params = list(alpha = 22))
data <- afmExpDecay(data, plt = FALSE)
data <- afmAdhesionEnergy(data, mul = 7)
# Extract the values of the parameters obtained in the analysis
afmExpParams <- afmExtract(data, opt.param = "type")
# Plotting the Young's Modulus
afmExpParams[[1]] %>% ggplot(aes(x = type, y = YM)) + geom_boxplot()
ylab("Young's Modulus (Pa)")
}
Run the code above in your browser using DataLab