length.R

r.length<-function(x){
  length<-0;
  for(i in x)
  {
    length<-length+1
  };
  length;
    
}