scalfactor: To calculate scale factor calculation.

View source: R/Scalfactor.R

scalfactorR Documentation

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 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


# 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)


diegoalarc/GeodesiCL documentation built on July 24, 2022, 9:14 p.m.