data <- afmReadJPKMultiIndent("force-save-JPK-multiIndent.txt.gz",path = path.package("afmToolkit"))
# Processing
data <- afmContactPoint(data, width = 100, mul1 = 1, mul2 = 10)
data <- afmDetachPoint(data, width = 100, mul1 = 1, mul2 = 10)
data <- afmBaselineCorrection(data)
data <- afmZeroPointSlope(data, fstar = 1)
data <- afmIndentation(data)
data <- afmRelax(data, model = "power", type = "CH", tmax = 5, plt = TRUE)
Run the code above in your browser using DataLab