`#you wouldn't put this part in example tests, just in the hidden tests solution <- function(x){ x**2 } test_that("example", { expect_equal(func(2), 4) expect_equal(func(3), 9) #etc. #or expect_equal(func(c(1:100)), solution(c(1:100))) })`

- #you wouldn't put this part in example tests, just in the hidden tests
- solution <- function(x){
- x**2
- }
- test_that("example", {
- expect_equal(func(2), 4)
- expect_equal(func(3), 9)
- #etc.
- #or
- expect_equal(func(c(1:100)), solution(c(1:100)))
- })

`#problem with asking to plot something is that all plot() functions will return the same thing, so all you'd need to do would be plot([anything]) # a better test would be asking to write a function that just returned the square of what was given func <- function(x){ x**2 }`

~~#~~**??????**~~func~~**<- function(){****x**<-**c(1:10)****plot(x,**x**2**)**- #
**problem with asking to plot something is that all plot()**func**tions will return the same thing, so all you'd need to do would be plot([anything])** **# a better test would be asking to write a function that just returned the square of what was given****func**<-**function(x){**- x**2
- }

`test_that("example", { expect_equal(func(2), 4) expect_equal(func(3), 9) #etc. })`

- test_that("example", {
~~expect_equal(func(~~**), plot(c(1:10),c(1:10)**2))**- expect_equal(func(
**2), 4)** **expect_equal(func(3), 9)****#etc.**- })

`#?????? func <- function(){ x <- c(1:10) plot(x,x**2) }`

**print("Hellow")**~~#~~**THis doesnt work becasue R is not supported yet**- #
**??????** **func <- function(){****x <- c(1:10)****plot(x,x**2)****}**

`test_that("example", { expect_equal(func(), plot(c(1:10),c(1:10)**2)) })`

- test_that("example", {
- expect_equal(func(), plot(c(1:10),c(1:10)**2))
- })