## Not run:
# data( lle_scurve_data )
# X <- lle_scurve_data
# calc_k( X, 2, 1, 15 )
#
# data( lle_scurve_data )
# X <- lle_scurve_data
# calc_k( X, 2, 1, 15, FALSE, TRUE, 4 )
# ## End(Not run)
Run the code above in your browser using DataLab