## An Example that runs the NSMM-ICA algorithm on Cohen's tone data
data(tonedata, package="mixtools")
b <- EMFASTICAALG(tonedata, 2, h=0, tol=1e-8)
estimatedgroup <- ESTIMATEDMEMBER(b) # estimated species info
Run the code above in your browser using DataLab