# NOT RUN {
x12SingleObject1 <- readSpc("D:/aaa.spc")
x12SingleObject2 <- readSpc("D:/ak_b.SPC")
x12BatchObject1 <- readSpc(c("D:/ak_b.SPC","D:/aaa.spc"))
setwd("M:/kowarik/Test/x12test")
lf <- list.files()
lf <- lf[unlist(lapply(lf,function(x)substr(x,nchar(x)-2,nchar(x)))) %in%c("spc","SPC")]
lf <- lf[-c(grep("ind",lf))]
allSPC <- readSpc(lf)
a <- x12(allSPC)
plot(a@x12List[[1]])
summary(a@x12List[[1]])
# }
Run the code above in your browser using DataLab