Напоминалка мне)))
Либа — RSQLite
con <- dbConnect(SQLite(), "keys_by_weeks.sqlite")
Ну и ссылочка на реф не повредит))
http://cran.r-project.org/web/packages/RSQLite/RSQLite.pdf
Напоминалка мне)))
Либа — RSQLite
con <- dbConnect(SQLite(), "keys_by_weeks.sqlite")
Ну и ссылочка на реф не повредит))
http://cran.r-project.org/web/packages/RSQLite/RSQLite.pdf
ВОт тоже напоминалочка кода… юзается для получения объекта в среде по имени в строке))))
т.е. x<-c(1,2,3)
print(x) и print(‘x’) выполнят совершенно разные вещи, и посему
eval(parse(text=’x’)) — вот что спасет отца русской демократии!
stringdist( c("v1","v2","v3","v4","v5"), "v6", method = "jw", p = 0.1)
runif(10,170,180)
Такая функция позволяет получить 10 чисел в диапазоне от 170 до 180
Нагуглил, как передать параметры функции для apply
apply(data1[2:7],2,function(x)sum(x,na.rm=T))
par(mfrow=c(1, 2)) Вот таким вот нехитрым способом рисуем два графика в одном окне
В общем методика сохранения графика такова
#открываем фаил
jpeg(file=»1.jpg», quality=400, height=960, width=960)
#отрисовываем график
pairs(d4[2:12])
#закрываем фаил
dev.off()
и вот такая шарманка получилась)
Все время теряю, как сохранить результат в csv
write.table(d5, file=»predictedprice.csv», sep=»;», dec=»,», row.names=FALSE, col.names=TRUE)
Себе на память (R-project)
#собираем фрейм
d3<-data.frame()
#Цикл
for(i in 1:100500)
{
#добавляем к текущему data.frame новый вектор, завернутый в data.frame
d3<-rbind(d3,data.frame(x,y,z))
}
А чтобы добавить колонку используем cbind