Rでbox平均。 corcor2<-0 sdsdsd2<-0 IQRIQR3<-0 lenlen3<-0 sdsdsd3<-0 meanmean3<-0 jjj<-flow_volume for(i in 1:length(filelist)){ try(ll<-mat_volume[,i]) try(corcor2[i]<-cor(ll,jjj,use="complete.obs")) try(sdsdsd2[i]<-sd(ll/jjj,na.rm=T)) ll2…