Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
5 x1000 210 1946 284 1947 267 1948 248 1949 236 1950 230 1951 228 1952 232 1953 228 1954 228 1955 229 1956 231 1957 234 1958 237 1959 243 1960 239 1961 247 1962 246 1963 250 1964 251 1965 245 1966 240 1967 239 1968 237 1969 248 1970 239 1971 227 1972 214 1973 195 1974 186 1975 178 1976 177 1977 173 1978 176 1979 175 1980 181 1981 179 1982 172 1983 170 1984 174 1985 178 1986 185 1987 187 1988 187 1989 189 1990 198 1991 199 1992 197 1993 196 1994 196 1995 191 1996 190 1997 192 1998 199 1999 200 2000 207 2001 203 2002 202 2003 200 2004 194 2005 188 2006 185 2007 181 2008 185 2009 185 2010 184 2011 180 2012 176 2013 171 2014 175 2015 .
Name of dataseries
Source
Description
Season
12
12
6
4
No season
Chart options
Title:
Label y-axis:
Label x-axis:
Y-axis minimum
Y-axis maximum
R Code
if (par4 != 'No season') { par4 <- as.numeric(par4) if (par4 < 4) par4 <- 12 } summary(x) n <- length(x) bitmap(file='test1.png') if (par4=='No season') { plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab,xaxt='n') axis(1,at=seq(1,n,10)) } if (par4!='No season') { plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab,xaxt='n') axis(1,at=seq(1,n,par4)) grid(nx=0,ny=NULL,col='black') abline(v=seq(1,n,par4),col='black',lty='dotted') } dev.off() load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Univariate Dataseries',2,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Name of dataseries',header=TRUE) a<-table.element(a,par1) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Source',header=TRUE) a<-table.element(a,par2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Description',header=TRUE) a<-table.element(a,par3) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Number of observations',header=TRUE) a<-table.element(a,length(x)) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable.tab')
Compute
Summary of computational transaction
Raw Input
view raw input (R code)
Raw Output
view raw output of R engine
Computing time
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation