Embed googleVis into web site

load('Plot_20131116.RData')
Motion=gvisMotionChart(area_total, idvar="area", timevar="year")
cat(Motion$html$chart,file='temp.html')

Copy html code from temo.html.

Test