# NOT RUN {
# get example data
df <- WeatherAllocation(leaf_drying_data, weather_data) # allocate weather to weight loss data
df <- TimeSinceStart(df) # calculate time since start
df <- df[df$fw.plateau != "yes",] # remove plateauing data
df <- FittedFW(df, graph = FALSE) # correct noises in fresh weight
df <- RWDInterval(df, fresh.weight = "fitted.fw") # calculate RWD based in the intervals
df <- Conductance(df, fresh.weight = "fitted.fw") # calculate conductance
# calculate gmin and plot graphs
gmin <- Gmin(df)
# }
Run the code above in your browser using DataLab