hdata<-read.csv(file = "F:\\HHH\\CQT01.csv",stringsAsFactors = F)
h0data<-hdata[which(hdata$Time!='0'),]
library(ggplot2)
ggplot(hr0410data,aes(x=Con,y=ddQTcF))+scale_x_log10()+geom_point()+stat_smooth(method=lm,level=0.99 )+
labs(x='concentration(pg/mL)',y='You Y')+
#scale_y_continuous(breaks = c(-30:30,10))
