diff --git a/R Package/ffanalytics/R/calculatePoints.R b/R Package/ffanalytics/R/calculatePoints.R
index 9bc67c2..7815cf2 100644
--- a/R Package/ffanalytics/R/calculatePoints.R	
+++ b/R Package/ffanalytics/R/calculatePoints.R	
@@ -27,7 +27,7 @@ calculatePoints <- function(projectionData = data.table(), scoringRules = list()
     # if all the points allowed are over 100 then we assume it is seasonal data
     is.season <- all(ptsAllow[is.finite(ptsAllow)] > 100)
     if(is.season){
-      ptsAllow <- ptsAllow / 16
+      ptsAllow <- ptsAllow / 17
     }
 
     # Creating a 0 vector to capture the points
@@ -39,7 +39,7 @@ calculatePoints <- function(projectionData = data.table(), scoringRules = list()
     }
 
     if(is.season){
-      pts <- pts * 16
+      pts <- pts * 17
     }
     return(as.numeric(pts))
   }
diff --git a/R Scripts/Functions/Functions.R b/R Scripts/Functions/Functions.R
index 26b408c..5b1b675 100644
--- a/R Scripts/Functions/Functions.R	
+++ b/R Scripts/Functions/Functions.R	
@@ -403,7 +403,7 @@ wilcox.loc <- function(vec, na.rm = FALSE){
 dstPts <- function(ptsAllow, brackets){
   is.season <- all(ptsAllow > 100)
   if(is.season){
-    ptsAllow <- ptsAllow / 16
+    ptsAllow <- ptsAllow / 17
   }
   pts <- rep(0, length(ptsAllow))
   for(r in nrow(brackets):1){
@@ -411,7 +411,7 @@ dstPts <- function(ptsAllow, brackets){
   }
   
   if(is.season){
-    pts <- pts * 16
+    pts <- pts * 17
   }
   return(as.numeric(pts))
 }