projects
/
morpheus.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Small plotting change for black and white printing
[morpheus.git]
/
pkg
/
R
/
plot.R
diff --git
a/pkg/R/plot.R
b/pkg/R/plot.R
index
0097607
..
614f5c5
100644
(file)
--- a/
pkg/R/plot.R
+++ b/
pkg/R/plot.R
@@
-21,7
+21,7
@@
extractParam <- function(mr, x=1, y=1)
#' @param y Column index of the element inside the aggregated parameter
#'
#' @examples
#' @param y Column index of the element inside the aggregated parameter
#'
#' @examples
-#' \dont
run
{
+#' \dont
test
{
#' β <- matrix(c(1,-2,3,1),ncol=2)
#' mr <- multiRun(...) #see bootstrap example in ?multiRun : return lists of mu_hat
#' μ <- normalize(β)
#' β <- matrix(c(1,-2,3,1),ncol=2)
#' mr <- multiRun(...) #see bootstrap example in ?multiRun : return lists of mu_hat
#' μ <- normalize(β)
@@
-104,7
+104,7
@@
plotCoefs <- function(mr, params)
avg_param <- as.double(params_hat[[i]])
std_param <- as.double(stdev[[i]])
matplot(cbind(params[o],avg_param[o],avg_param[o]+std_param[o],avg_param[o]-std_param[o]),
avg_param <- as.double(params_hat[[i]])
std_param <- as.double(stdev[[i]])
matplot(cbind(params[o],avg_param[o],avg_param[o]+std_param[o],avg_param[o]-std_param[o]),
- col=
c(2,1,1,1), lty=c(1,1
,2,2), type="l", lwd=2, xlab="param", ylab="value")
+ col=
1, lty=c(1,5
,2,2), type="l", lwd=2, xlab="param", ylab="value")
}
#print(o) #not returning o to avoid weird Jupyter issue... (TODO:)
}
#print(o) #not returning o to avoid weird Jupyter issue... (TODO:)
@@
-115,6
+115,9
@@
plotCoefs <- function(mr, params)
#' Draw 3D map of objective function values
#'
#' @param N Number of starting points
#' Draw 3D map of objective function values
#'
#' @param N Number of starting points
+#' @param n Number of points in sample
+#' @param p Vector of proportions
+#' @param b Vector of biases
#' @param β Regression matrix (target)
#' @param link Link function (logit or probit)
#'
#' @param β Regression matrix (target)
#' @param link Link function (logit or probit)
#'