context('Rescale - Arguments')
x <- 1:10
test_that('Check - x', {
expect_error(rescale(),
'Please provide a vector x to rescale')
expect_error(rescale(x='a'),
'x must be a numeric vector')
})
test_that('Check - normal', {
expect_error(rescale(x, 'normal', mean='a'),
'mean must be a numeric value')
expect_error(rescale(x, 'normal', mean=1:2),
'mean must be a single value')
expect_error(rescale(x, 'normal', mean=0, sd='a'),
'sd must be a positive numeric value')
expect_error(rescale(x, 'normal', mean=0, sd=-1),
'sd must be a positive numeric value')
expect_error(rescale(x, 'normal', mean=0, sd=1:2),
'sd must be a single value')
})
test_that('Check - minmax', {
expect_error(rescale(x, 'minmax', min='a'),
'min must be a numeric value')
expect_error(rescale(x, 'minmax', min=1:2),
'min must be a single value')
expect_error(rescale(x, 'minmax', min=0, max='a'),
'max must be a numeric value')
expect_error(rescale(x, 'minmax', min=0, max=1:2),
'max must be a single value')
expect_error(rescale(x, 'minmax', min=0, max=-1),
'min must be less than or equal to max')
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.