R/equipartition.R

In brentscott93/biophysr: Analysis tools for muscle biophysics

#' Equipartition method for calibrating trap stiffness
#'
#' @param data
#'
#' @return trap stiffness
#' @export
#'
#' @examples equipartition(vector)
equipartition <- function(data){

  kb <-  4.10 #boltzman constant

  signal_var <- var(data) #get variance of data trace

  ep <- signal_var/kb  #equation from you, me, and dupuis

  return(ep)

}