# number  pos.number alter1 alter2
  1         320
  2         321       350   450
  3         500       490   400
  4         560             300
  5         400       450

datacall <- read.table("data.example",col.name=c("number","pos.number","alter1","alter2"),fill=TRUE)