@this_mahdis

calculate_square <- function(number){ result <- number * number return(result) } calculate_square(18) calculate_gc <- function(dna) { gc_count <- 0 for ( i in 1:nchar(dna)) { base <- substr(dna, i, i)