for(x in 0:31){
c<- b[(15*x+1):(15*x+15),]
d<- subset(c,c$Used == TRUE,)
e<- d[which.min(d$Calculated.Concentration),]
LLOD<-e$Calculated.Concentration
f<- d$Calculated.Concentration
g<- as.numeric(f)
LLOQ<- min(g[g!=min(g)]) #去掉最小的那个数
h<- d[which.max(d$Actual.Concentration),]
ULOQ<-h$Actual.Concentration
i<- d$Correlation.Coefficient
R2<- max(i)
j<- d$Component.Name
Name<- j[1]
table<- data.frame(Name,LLOD,LLOQ,ULOQ,R2)
View(table)
在for循环中保存table<- data.frame(x,x,x,x),你也可以使用saveRDS 。
保存:
saveRDS(table, file="data.Rda")
然后阅读它:
bar <- readRDS(file="data.Rda")