list(beta = c(0,0,0,0), beta0=0, r=1 , NA="NA") 
