Skip to content
Snippets Groups Projects
Verified Commit c756428e authored by Laurent Modolo's avatar Laurent Modolo
Browse files

web: add session1 web material

parent f5489731
Branches
No related tags found
No related merge requests found
web/1_a 0 → 100644
Which of the following are valid R variable names?
min_height
max.height
_age
.mass
MaxLength
min-length
2widths
celsius2kelvin
base_test <- function(x, base){
log_result <- logarithm(x, base=base)
exp_result <- base^log_result
test_result <- x == exp_result
return(test_result)
}
\ No newline at end of file
web/1_c 0 → 100644
base_test <- function(x, base){
print(x)
log_result <- logarithm(x, base=base)
print(log_result)
exp_result <- base^log_result
print(exp_result)
print(x)
test_result <- x == exp_result
return(test_result)
}
\ No newline at end of file
web/1_d 0 → 100644
base_test <- function(x, base){
print(x)
log_result <- logarithm(x, base=base)
print(log_result)
exp_result <- base^log_result
print(exp_result)
print(x)
test_result <- isTRUE(all.equal(x, exp_result))
return(test_result)
}
\ No newline at end of file
base_test <- function(x, base){
return(isTRUE(all.equal(x, base^logarithm(x, base=base))))
}
\ No newline at end of file
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment