Because the origin of the cell cycle phases is arbitrary, we transform the angles prior to computing the distance (rotation and shifting) to minimize the distance between two vectors. After this, one can apply circ_dist to compute the distance between the output value and ref_var.
A vector of reference angles.
A vector of angles to be compared to ref_var.
The transformed values of shift_var after rotation and shifting.
1 2 3 4 5 6 7 8 9 10 11 12 13
# a vector of angles theta_ref <- seq(0,2*pi, length.out=100) # shift the origin of theta_ref to pi theta_compare <- shift_origin(theta_ref, origin = pi) # rotate theta_compare in a such a way that the distance # between theta_ref and thet_compare is minimized theta_compare_rotated <- rotation(ref_var=theta_ref, shift_var=theta_compare) par(mofrow=c(1,2)) plot(x=theta_ref, y = theta_compare) plot(x=theta_ref, y = theta_compare_rotated)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.