0
MySQL 테이블의 데이터에 glm
을 사용하여 R에 맞는 모델에 맞는 값을 계산하고 결과를 해당 테이블로 다시 파이프하는 방법, 어떻게 할 수 있습니까? ?R 모델에서 MySQL 테이블에 맞는 값을 삽입하십시오
MySQL 테이블의 데이터에 glm
을 사용하여 R에 맞는 모델에 맞는 값을 계산하고 결과를 해당 테이블로 다시 파이프하는 방법, 어떻게 할 수 있습니까? ?R 모델에서 MySQL 테이블에 맞는 값을 삽입하십시오
# 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')
내가 그것을 알고 PPL 중 자주 interessing 수 있습니다 생각 MySQL의 _or_ R – Hoffmann
당신이 예측 값을 저장 하시겠습니까? 회귀 계수는? – Dason
예측 된 (맞는) 값을 저장하고 싶습니다. – Hoffmann