R/ToCalculateIncr3D.R

ToCalculateIncr3D <- function (coord) 
{
    num_data = dim(coord)
    num_elements = num_data[1]
    x_coordinates = 1:num_elements
    y_coordinates = 1:num_elements
    z_coordinates = 1:num_elements
    x_coordinates <- coord[, 4] - coord[, 1]
    y_coordinates <- coord[, 5] - coord[, 2]
    z_coordinates <- coord[, 6] - coord[, 3]
    increm = c(x_coordinates, y_coordinates, z_coordinates)
	dim(increm) = c(num_elements, 3)
    return(increm)
	
}

Try the VecStatGraphs3D package in your browser

Any scripts or data that you put into this service are public.

VecStatGraphs3D documentation built on May 1, 2019, 8:03 p.m.