logical <- function(n=0) vector("logical",n)
integer <- function(n=0) vector("integer",n)
real <- function(n=0) vector("real", n)
double <- function(n=0) vector("real", n)
numeric <- double
complex <- function(n=0, real=numeric(), imaginary=numeric())
.Internal(complex(n, real, imaginary))
character <- function(n=0) vector("character",n)
