selva86/8_3_Challenge_R_Course.R

## 8_3_Challenge_R_Course.R
# Input
set.seed(100)
first <- sample(10:20, 15, replace = T)  # first sides of RHT
second <- sample(10:20, 15, replace = T)  # second sides of RHT

# Final Result updates here
largest_val <- 0

# Calc Hypotenuse
hypotenuse <- function(side1, side2){
  sqrt(side1^2 + side2^2)
}
	# Input
	set.seed(100)
	first <- sample(10:20, 15, replace = T) # first sides of RHT
	second <- sample(10:20, 15, replace = T) # second sides of RHT

	# Final Result updates here
	largest_val <- 0

	# Calc Hypotenuse
	hypotenuse <- function(side1, side2){
	sqrt(side1^2 + side2^2)
	}