cat /proc/meminfo | grep MemTotal
grep -c processor /proc/cpuinfo

plot(table(d1)[-c(1:12)], col=1, type="b", xlab="월", ylab="민원건수(경주시)")
lines(table(d1)[c(1:12)], col=2)
points(table(d1)[c(1:12)], col=2)
legend("topright", c("2014","2015"), col=1:2, lty=1)

d <- as.Date(g.meta[,3])
d1<-format( d, '%Y-%m')
d2 <-as.Date(g.meta[,4])
delay <- as.numeric(d2-d)
delay <- ifelse(delay>=0, delay, 0)
boxplot(delay~department[1:length(delay)], ylab="처리시간(일)", 
main="부처별 민원처리시간")

plot(data.frame(d1, delay)[-c(1:12),], col=1, type="b", xlab="월", ylab="민원건수(경주시)")
lines(table(d1)[c(1:12)], col=2)
points(table(d1)[c(1:12)], col=2)
legend("topright", c("2014","2015"), col=1:2, lty=1)


x <- aggregate(as.numeric(delay), list(d1), mean)[,1]
plot(x, aggregate(as.numeric(delay), list(d1), mean)[,2])

summary(as.numeric(delay))


P:MA:MyCardBenefits:나만의혜택
P:MA:결제서비스:이용한도:본인한도조회
P:MA:결제서비스:즉시결제:내역조회:이용건별내역
P:MA:명세서:결제예정/잔액조회
P:MA:명세서:이용내역:카드이용내역:일반
P:MA:명세서:이용명세서(M)
P:MA:명세서:포인트캐시백조회