# NOT RUN {
showClass("MRPCclass")
# Generate a MRPCclass object
data <- simu_data_M1 # load data for model 1
n <- nrow(data) # Number of rows
V <- colnames(data) # Column names
# Calculate Pearson correlation
suffStat_C <- list(C = cor(data),
n = n)
# Infer the graph by MRPC
MRPC.fit <- MRPC(data,
suffStat_C,
GV = 1,
FDR = 0.05,
alpha = 0.05,
indepTest ='gaussCItest',
labels = V,
FDRcontrol = TRUE,
verbose = TRUE)
# Use methods of class MRPCclass
show(MRPC.fit)
plot(MRPC.fit)
summary(MRPC.fit)
# Access slots of this object
(g <- MRPC.fit@graph)
str(ss <- MRPC.fit@sepset, max = 1)
# }
Run the code above in your browser using DataLab