require(R.matlab)
install.packages('R.matlab')
require(R.matlab)
Matlab()
Matlab$startServer()
matlab <- Matlab()
!open(matlab)
evaluate(matlab, 'A=1+2')
a <- getVariable(matlab, 'A')
a
a$A
? Matlab
? Matlab$startServer
require(xtable)
source('typeIerrorfunctions_pfdrincluded.R')
load('FurfineOutput/BaselineOriginalFurfineOutputDummyData.RData')
furfdat.split <- split(furfdat, as.factor(furfdat[,1]))
furfdups <- DuplicatePercentagesTable(furfdat.split)
load('Results/BaselineTypeI_1.RData')
results <- BaselineTypeI$raw
Full_dups <- DuplicatePercentagesTable(results)
DupTable <- cbind(furfdups, Full_dups)
colnames(DupTable) <- c('Original Sample', 'Permuted Sample')
xtable(t(DupTable)*100)
getwd()
setwd('B:/home/mfa/remm/Replication')
setwd('B:/Replication')
require(xtable)
source('typeIerrorfunctions_pfdrincluded.R')
load('FurfineOutput/BaselineOriginalFurfineOutputDummyData.RData')
furfdat.split <- split(furfdat, as.factor(furfdat[,1]))
furfdups <- DuplicatePercentagesTable(furfdat.split)
load('Results/BaselineTypeI_1.RData')
results <- BaselineTypeI$raw
Full_dups <- DuplicatePercentagesTable(results)
DupTable <- cbind(furfdups, Full_dups)
colnames(DupTable) <- c('Original Sample', 'Permuted Sample')
xtable(t(DupTable)*100)
FurfData.filenames <- c('BaselineOriginalFurfineOutputDummyData.RData', 'EndOfDayFurfineOutputDummyData.RData', 'RoundIntFurfineOutputDummyData.RData', 'ExactIntFurfineOutputDummyData.RData', 'kNNrefinedFurfineOutputDummyData.RData')
TypeIresult.list <- c('BaselineTypeI', 'EndOfDayTypeI', 'RoundIntTypeI', 'ExactIntTypeI',  'RempelTypeI')
num_results_files <- 1
source('AggregateSimulatedResults.R')
require(xtable)
xtable(Table3)
getwd()
rm(list=ls())
require(xtable)
source('typeIerrorfunctions_pfdrincluded.R')
load('FurfineOutput/BaselineOriginalFurfineOutputDummyData.RData')
furfdat.split <- split(furfdat, as.factor(furfdat[,1]))
furfdups <- DuplicatePercentagesTable(furfdat.split)
load('Results/BaselineTypeI_1.RData')
results <- BaselineTypeI$raw
Full_dups <- DuplicatePercentagesTable(results)
DupTable <- cbind(furfdups, Full_dups)
colnames(DupTable) <- c('Original Sample', 'Permuted Sample')
xtable(t(DupTable)*100)
FurfData.filenames <- c('BaselineOriginalFurfineOutputDummyData.RData', 'EndOfDayFurfineOutputDummyData.RData', 'RoundIntFurfineOutputDummyData.RData', 'ExactIntFurfineOutputDummyData.RData', 'kNNrefinedFurfineOutputDummyData.RData')
TypeIresult.list <- c('BaselineTypeI', 'EndOfDayTypeI', 'RoundIntTypeI', 'ExactIntTypeI',  'RempelTypeI')
num_results_files <- 1
source('AggregateSimulatedResults.R')
require(xtable)
xtable(Table3)
exists(AggregateSimulatedResults.R')
')'
exists(AggregateSimulatedResults.R)
exists('AggregateSimulatedResults.R'')
''
exists(AggregateSimulatedResults.R)
getwd()
file.exists('AggregateSimulatedResults.R')
source('AggregateSimulatedResults.R')
rm(list=ls())
getwd()
require(xtable)
source('typeIerrorfunctions_pfdrincluded.R')
load('FurfineOutput/BaselineOriginalFurfineOutputDummyData.RData')
furfdat.split <- split(furfdat, as.factor(furfdat[,1]))
furfdups <- DuplicatePercentagesTable(furfdat.split)
load('Results/BaselineTypeI_1.RData')
results <- BaselineTypeI$raw
Full_dups <- DuplicatePercentagesTable(results)
DupTable <- cbind(furfdups, Full_dups)
colnames(DupTable) <- c('Original Sample', 'Permuted Sample')
xtable(t(DupTable)*100)
FurfData.filenames <- c('BaselineOriginalFurfineOutputDummyData.RData', 'EndOfDayFurfineOutputDummyData.RData', 'RoundIntFurfineOutputDummyData.RData', 'ExactIntFurfineOutputDummyData.RData', 'kNNrefinedFurfineOutputDummyData.RData')
TypeIresult.list <- c('BaselineTypeI', 'EndOfDayTypeI', 'RoundIntTypeI', 'ExactIntTypeI',  'RempelTypeI')
num_results_files <- 1
source('AggregateSimulatedResults.R')
FurfData.filenames <- c('BaselineOriginalFurfineOutputDummyData.RData', 'EndOfDayFurfineOutputDummyData.RData', 'RoundIntFurfineOutputDummyData.RData', 'ExactIntFurfineOutputDummyData.RData', 'kNNrefinedFurfineOutputDummyData.RData')
TypeIresult.list <- c('BaselineTypeI', 'EndOfDayTypeI', 'RoundIntTypeI', 'ExactIntTypeI',  'RempelTypeI')
num_results_files <- 1
source('AggregateSimulatedResults.R')
require(xtable)
xtable(Table3)
require(xtable)
source('typeIerrorfunctions_pfdrincluded.R')
load('FurfineOutput/BaselineOriginalFurfineOutputDummyData.RData')
furfdat.split <- split(furfdat, as.factor(furfdat[,1]))
furfdups <- DuplicatePercentagesTable(furfdat.split)
load('Results/BaselineTypeI_1.RData')
results <- BaselineTypeI$raw
Full_dups <- DuplicatePercentagesTable(results)
DupTable <- cbind(furfdups, Full_dups)
colnames(DupTable) <- c('Original Sample', 'Permuted Sample')
xtable(t(DupTable)*100)
getwd()
FurfData.filenames <- c('BaselineOriginalFurfineOutputDummyData.RData', 'EndOfDayFurfineOutputDummyData.RData', 'RoundIntFurfineOutputDummyData.RData', 'ExactIntFurfineOutputDummyData.RData', 'kNNrefinedFurfineOutputDummyData.RData')
TypeIresult.list <- c('BaselineTypeI', 'EndOfDayTypeI', 'RoundIntTypeI', 'ExactIntTypeI',  'RempelTypeI')
num_results_files <- 1
source('AggregateSimulatedResults.R')
require(xtable)
xtable(Table3)
.Random.seed
sample(1:50, 1)
require(Rmpi)
.Random.seed <- NULL
.Random.seed
set.seed(1)
.Random.seed <- 5
set.seed(1)
.Random.seed <- rep(5,100)
set.seed(1)
.Random.seed <- as.integer(rep(5,100))
set.seed(1)
FurfData.filenames <- c('BaselineOriginalFurfineOutputDummyData.RData', 'EndOfDayFurfineOutputDummyData.RData', 'RoundIntFurfineOutputDummyData.RData', 'ExactIntFurfineOutputDummyData.RData', 'kNNrefinedFurfineOutputDummyData.RData')
TypeIresult.list <- c('BaselineTypeI', 'EndOfDayTypeI', 'RoundIntTypeI', 'ExactIntTypeI',  'RempelTypeI')
num_results_files <- 1
source('AggregateSimulatedResults.R')
require(xtable)
xtable(Table3)
