x12SingleObject1 <- read.spc("D:/aaa.spc")
x12SingleObject2 <- read.spc("D:/ak_b.SPC")
x12BatchObject1 <- read.spc(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)))) lf <- lf[-c(grep("ind",lf))]
allSPC <- read.spc(lf)
a <- X12(allSPC)
plot(a@x12List[[1]])
summary(a@x12List[[1]])
Run the code above in your browser using DataLab