Update safe_mode_accuracy.R

SciCast · Sep 22, 2014 · 3fe0533 · 3fe0533
1 parent 7064914
commit 3fe0533
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/safe_mode_accuracy.R b/safe_mode_accuracy.R
@@ -153,7 +153,7 @@ for (t in 1:length(tat)) {
  if (is.na(temp1[1])==F) {
   rvqt[t,1:length(temp1)] <- temp1
   if (mdt[t]>0) {
-   dflt <- (1-rst[t])/(length(temp1)-1); svt[t,1:length(temp1)] <- rep(dflt,length(temp1))
+   dflt <- (1-rst[t])/(length(temp1)-1); svt[t,1:length(temp1)] <- rep(dflt,length(temp1))				# Assume non-attended options have uniform distribution.
    svt[t,(cit[t]+1)] <- rst[t]
   }
   if (temp1[1]%%1==0) {													# Not mixture resolutions