spread2wp_ncaabb <- function(spread){

  1- pnorm(spread, 0, 10.5)

}
#Win Probability of a team facored by 5, based on historical data since 2000
spread2wp_ncaabb(-5)