Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion R/blackBoxDS.R
Original file line number Diff line number Diff line change
Expand Up @@ -367,7 +367,7 @@ if(sum(round(rank(blackbox.output.df[,3])-rank(blackbox.output.df[,4]),2)==0)!=n
paste0("FAILED: inconsistent values across different transformations in black box,
try a different seed. Altenatively this could reflect modification of the
clientside code which is not recommended. Finally, it can also occur
if the R session on one or more of the opal data servers runs out
if the R session on one or more of the Armadillo/Opal data servers runs out
of memory")
stop(error.message, call. = FALSE)
}else{
Expand Down
2 changes: 1 addition & 1 deletion R/blackBoxRanksDS.R
Original file line number Diff line number Diff line change
Expand Up @@ -257,7 +257,7 @@ if(sum(round(rank(blackbox.ranks.df[,5])-rank(blackbox.ranks.df[,8]),2)==0)!=num
paste0("FAILED: inconsistent ranking across different transformations in black box,
try a different seed. Altenatively this could reflect modification of the
clientside code which is not recommended. Finally, it can also occur
if the R session on one or more of the opal data servers runs out
if the R session on one or more of the Armadillo/Opal data servers runs out
of memory")
stop(error.message, call. = FALSE)
}else{
Expand Down
2 changes: 1 addition & 1 deletion R/meanSdGpDS.R
Original file line number Diff line number Diff line change
Expand Up @@ -116,7 +116,7 @@ meanSdGpDS <- function (x, index){
ansmat.count<-table(group)

# Set filter for cell sizes that are too small
# the minimum number of observations that are allowed (the below function gets the value from opal)
# the minimum number of observations that are allowed (the below function gets the value from the server)
any.invalid.cell<-(sum(ansmat.count<nfilter.tab&ansmat.count>0)>=1)
if(!any.invalid.cell)
{
Expand Down
4 changes: 2 additions & 2 deletions R/ranksSecureDS4.R
Original file line number Diff line number Diff line change
Expand Up @@ -71,7 +71,7 @@ if((length(sR8.df$global.ranks.input.from.sR5)!=lenx)||
error.message<-
paste0("FAILED: ranking components of different lengths. This could reflect
modification of the clientside code which is not recommended. It can
also occur if the R session on one or more of the opal data servers
also occur if the R session on one or more of the Armadillo/Opal data servers
runs out of memory")
stop(error.message, call. = FALSE)
}
Expand All @@ -96,7 +96,7 @@ if(ranks.consistent==0)
paste0("FAILED: inconsistent ranking across different components of ranking matrix,
try a different seed. Altenatively this could reflect modification of the
clientside code which is not recommended. Finally, it can also occur
if the R session on one or more of the opal data servers runs out
if the R session on one or more of the Armadillo/Opal data servers runs out
of memory")
stop(error.message, call. = FALSE)
}
Expand Down
2 changes: 1 addition & 1 deletion R/table1DDS.R
Original file line number Diff line number Diff line change
Expand Up @@ -15,7 +15,7 @@
#'
table1DDS <- function(xvect){

# the minimum number of observations that are allowed (the below function gets the value from opal)
# the minimum number of observations that are allowed (the below function gets the value from the server)

#############################################################
# MODULE 1: CAPTURE THE nfilter SETTINGS
Expand Down
Loading