将R模型的拟合值插入到MySQL表中

Question

我想计算一个适合R的模型的拟合值，使用glm对MySQL表中的数据进行处理，并将结果返回到该表中，我怎么能这样做？

Answer 1

# preparation 
library("RMySQL") 
con <- dbConnect(MySQL(), user="####", pass="###", host="127.0.0.1", db="###") 
on.exit(dbDisconnect(con)) 

# fetching the data and calculating fit  
tab <- dbGetQuery(con,"SELECT ID, dep, indep1, indep2 FROM table WHERE !(ISNULL(ID) OR ISNULL(dep) OR ISNULL(indep1) OR ISNULL(indep2))") 
regression = glm(tab$dep ~ tab$indep1 + tab$indep2, gaussian) 

# preparing data for insertion 
insert <- data.frame(tab$ID, fitted.values(regression) 
colnames(insert) <- c('ID', 'dep') 

# table hassle (inserting data, combining with previous table, deleting old and fitresult renaming combined back to original name 
if (dbExistsTable(con, '_result') { 
    dbRemoveTable(con, '_result'); 
} 
dbWriteTable(con, '_result', insert) 
dbSendQuery(con, 'CREATE TABLE temporary SELECT table.*, _result.dep FROM table LEFT JOIN result USING (ID)') 
dbRemoveTable(con, 'table') 
dbRemoveTable(con, '_result') 
dbSendQuery(con, 'RENAME TABLE temporary TO table')