Nothing
read.spc.Shimadzu <- function(filename) {
stop ("Import of Shimadzu SPC file format (OLE CF) is not yet implemented.")
}
.test (read.spc.Shimadzu) <- function (){
context ("read.spc.Shimadzu")
test_that("not implemented error", {
expect_error(read.spc.Shimadzu())
})
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.