% check whether Rs has mean R0 and CovM C0 R0 [3x3] mean rotation C0 [3x3] theoretical CovM Rs [9xN] sample of rotations S significance level wf 5/2020
0001 function check_simulated_rotation(R0,C0,Rs,S) 0002 %% check whether Rs has mean R0 and CovM C0 0003 % 0004 % R0 [3x3] mean rotation 0005 % C0 [3x3] theoretical CovM 0006 % Rs [9xN] sample of rotations 0007 % S significance level 0008 % 0009 % wf 5/2020 0010 0011 % number of samples 0012 N = size(Rs,2); 0013 0014 % analyse data 0015 r_s=zeros(N,3); 0016 for n=1:N 0017 r_s(n,:)= calc_v_from_S(reshape(Rs(:,n),3,3)*R0'); 0018 end 0019 0020 % check mean and CovM 0021 check_estimation_result(3, zeros(3,1), C0, ones(N,1), r_s, S, ' rotations') 0022 0023 end 0024