function [A]=sem(X)
A=nanstd(X)./sqrt(numel(X));
end