vsm.get.Coercivity.Rd
returns coercive field of hysteresis loop
vsm.get.Coercivity(H, M)
coercivity (Oe)
filename = vsm.getSampleFiles()[1]
d = vsm.import(filename)
d1 = vsm.getLoop(d, lp=1, direction=1 )
df = vsm.data.frame(d1)
vsm.get.Coercivity(df$H, df$M)
#> [1] 427.7485