[R-br] R com rpi3 server linux

[Leonardo Ferrão]

Boa tarde listeiros,
Estou executando a seguinte rotina para obter os parâmetros de weibull num dado intervalo de velocidades de vento.Fiz um servidor linux numa placa raspberry pi3 e estou usando MySQL, R, PHP e hospedando um site onde retorno os valores calculados. A questão é que demora demais para calcular, quase um minuto e meio.No computador é menos de 10s. Entendo que existe questões de memória e processamento.Hoje o intervalo de busca no banco de dados é fixo, futuramente vai ser variável, logo, a cada busca demorará 1:30 min para ter a resposta.A questão é, existe forma de agilizar esse cálculo?
Pensei até em criar um server exclusivo para R, mas não encontrei muito material a respeito.


library(DBI, quietly = TRUE)library(fitdistrplus, quietly = TRUE)library(RMySQL, quietly = TRUE)
mydb = dbConnect(MySQL(), user=.........., password=......., dbname=......., host=...................)rs = dbSendQuery(mydb, "SELECT vento_12m FROM weibull_points WHERE vento_12m >=0 AND vento_12m < 15.75 ORDER BY datetime DESC")data = fetch(rs, n=-1)
fw = fitdistr(as.numeric(data$vento_12m), densfun = "weibull", lower = 0)forma= fw$estimate[1]escala = fw$estimate[2]
query <- paste0("INSERT INTO weibull_curva_12m (fator_forma_k, fator_escala_c) VALUES ('",fw$estimate[1],"','", fw$estimate[2],"')")grava = dbSendQuery(mydb, query)dev.off()


--Leonardo de Oliveira FerrãoEletrotécnico - CREA/RS 198702Administrador - CRA/RS 049456
Engenheiro de Controle e AutomaçãoUniversidade Federal de Santa Maria - UFSM Skype: leonardo.ferraoCelular (55) 99715-0343Residencial (55) 3221-6743
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20170906/d5b065d0/attachment.html>