comms$Basis <- if(comms[,21]=="A/365"){
  print(365)
} else {
  print(360)
}