GeodesiCL (version 1.0.0)

scalfactor: To calculate scale factor calculation.

Description

With this function it is possible to calculate the scale factor.

Usage

scalfactor(EAST_Geodist_df, digits = 4)

Arguments

EAST_Geodist_df

Point name, East coordinate and Geodesic distance as data.frame.

digits

Number of digits the seconds are rounded to. DEFAULT: 4

Value

data.frame with the data in the following order: "Pt", "X", "K UTM","D UTM", "DIF D-S", "PPM".

Examples

# NOT RUN {
# Point name
Pto <- "St1"

# East coordinate.
EAST <- 224200

# Ellipsoidal height
h <- 2500

# Horizontal distance
Dhz <- 728.5

# Ellipsoidal height and Horizontal distance as data.frame
Ellips_Horzdist_df <- as.data.frame(cbind(Pto, h, Dhz))

geodis <- geodis(Ellips_Horzdist_df, digits = 4)

# East coordinate and Geodesic distance as data.frame
EAST_Geodist_df <- as.data.frame(cbind(Pto, EAST, geodis[,3]))

value <- scalfactor(EAST_Geodist_df, digits = 4)
print(value)
# }