First seemingly working ICA version in R