calc_cc_intracvs<-function(tbl,var,inst,db){
str_0<-"SELECT AVG(CV)as intraCV,stddev(CV) as intraCVsd,substr(Lot,4,2) as yr,substr(Lot,2,3) as day,Lot from
(SELECT (100*(stddev(var)/AVG(var))) as CV,Lot from
(SELECT Lot,sn,Inst,`%VAR%` as var from xfpwetqc where Inst=430029) as x
group by Lot,sn) as Y
group by Lot
ORDER by yr ASC,day ASC;"
query_string <- gsub("%INST%", inst, gsub("%TBL%", tbl, gsub("%VAR%" , var, str_0)))
query_sent<-RMySQL::dbSendQuery(db,query_string)
x<-RMySQL::dbFetch(query_sent,n=-1)
RMySQL::dbClearResult(query_sent)
x$Lot<-factor(x$Lot,levels = x$Lot)
x
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.