demo()
nlm
smooth
hep.start()
help.start()
install.packages("RODBC")
library(RODBC)
help(RODBC)
vignette("RODBC")
ch <-odbcConnect("ODBC_ORACLE")
channel <- odbcConnect("ODBC_ORACLE")
channel <- odbcConnect("oodbc")
channel <- odbcConnect("oodbc")
install.packages("RODBC")
library(RODBC)
library(RODBC)
channel <- odbcConnect("oodbc")
library(RODBC)
update.packages()
y
install.packages("RODBC")
install.packages("RODBC")
install.packages("ggplot")
install.packages("RODBC")
library(RODBC)
ch <- odbcConnect("oodbc", uid="HADOOP", pwd="msihangul")
sqlTables(ch)
sqlTables(ch, tableType = "TABLE")
sqlTables(ch, schema="HADOOP")
history
sqlColumns(ch, "movie_all")
sqlColumns(ch, "MOVIE_ALL")
sqlQuery(ch, paste("select * from TEMP02"))
day_audience <- sqlQuery(ch, paste("select * from TEMP02"))
day_audience
#day_audience
plot(day_audience, screens=1)
m_all <- sqlQuery(ch, paste("select * from MOVIE_ALL"))
warnings()
sqlQuery(ch, paste("select * from MOVIE_ALL"))
;
sqlQuery(ch, paste("select * from MOVIE_ALL"))
sqlQuery(ch, paste("select substr(showing_date,0,6)
,sum(audience) audience
from MOVIE_ALL
group by substr(showing_date,0,6)
order by substr(showing_date,0,6) desc;"))
month_view <- sqlQuery(ch, paste("select substr(showing_date,0,6)
,sum(audience) audience
from MOVIE_ALL
group by substr(showing_date,0,6)
order by substr(showing_date,0,6) desc;"))
plot(month_view)
month_view <- sqlQuery(ch, paste("select rownum, audience from (select sum(audience) audience
from MOVIE_ALL
group by substr(showing_date,0,6)
order by substr(showing_date,0,6)) desc;"))
month_view
month_view <- sqlQuery(ch, paste("select rownum, audience from (select sum(audience) audience
from MOVIE_ALL
group by substr(showing_date,0,6)
order by substr(showing_date,0,6));"))
month_view
ggplot
;
plot(month_view)
barplot(month_view)
barplot(c(3,5,4), col=c("red", "white", "blue"))
barplot(c(3,5,4))
month_view <- sqlQuery(ch, paste("select audience from (select sum(audience) audience
from MOVIE_ALL
group by substr(showing_date,0,6)
order by substr(showing_date,0,6));"))
month_view
barplot(c(month_view))
barplot(month_view)
barplot(month_view.AUDIENCE)
getwd()
setwd("D:\oracle11g32bit\r_working_dir")
setwd("D:/oracle11g32bit/r_working_dir")
type(month_view)
mode(month_view)
print(month_view)
month_view["AUDIENCE"]
mode(month_view["AUDIENCE"])
month_view[1,"AUDIENCE"]
month_view[1,1]
month_view[1,2]
as.number(month_view)
mv <- (month_view)$V1
mv
month_view <- sqlQuery(ch, as.vector("select audience from (select sum(audience) audience
from MOVIE_ALL
group by substr(showing_date,0,6)
order by substr(showing_date,0,6));"))
month_view
mode(month_view)
month_view <- sqlQuery(ch, ("select audience from (select sum(audience) audience
from MOVIE_ALL
group by substr(showing_date,0,6)
order by substr(showing_date,0,6));"))
month_view
mode(month_view)
mv01 <- c(do.call("cbind", month_view))
mode(mv01)
mv01
barplot(mv01)
names(mv01) <- c("Jan", "Feb")
barplot(mv01)
names(mv01) <- c("Jan", "Feb", "Mar", "Apr", "May")
barplot(mv01)
names(mv01) <- c("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec","Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct" )
barplot(mv01)
mv01