10
10
# ' @importFrom purrr map
11
11
# ' @importFrom stats lm
12
12
# ' @examples
13
- # ' \dontrun{
14
13
# ' mat1 <- matrix(c(0,1,1,0,0,1,1,1),4,2)
15
14
# ' mat2 <- matrix(c(0,1,0,1,0,1,0,1),4,2)
16
15
# ' mat3 <- matrix(c(0,0,1,1,0,0,1,1),4,2)
17
16
# ' lmat <- list(mat1 = mat1, mat2 = mat2, mat3 = mat3)
18
- # ' example <- netlm(mat1 ~ mat2 + mat3 + lmat)
19
- # ' }
17
+ # ' model1 <- netlm(mat1 ~ mat2 + mat3, lmat)
18
+ # ' summary(model1)
20
19
# ' @export
21
20
netlm <- function (formula , data , ... ){
22
21
@@ -40,15 +39,6 @@ netlm <- function(formula, data, ...){
40
39
# ' By default, reps=1000.
41
40
# ' @param ... Arguments passed on to `lm()`.
42
41
# ' @importFrom stats ecdf lm
43
- # ' @examples
44
- # ' \dontrun{
45
- # ' mat1 <- matrix(c(0,1,1,0,0,1,1,1),4,2)
46
- # ' mat2 <- matrix(c(0,1,0,1,0,1,0,1),4,2)
47
- # ' mat3 <- matrix(c(0,0,1,1,0,0,1,1),4,2)
48
- # ' lmat <- list(mat1 = mat1, mat2 = mat2, mat3 = mat3)
49
- # ' example <- netlm(mat1 ~ mat2 + mat3 + lmat)
50
- # ' summary.netlm(example)
51
- # ' }
52
42
# ' @export
53
43
summary.netlm <- function (object , reps = 1000 , ... ){
54
44
@@ -115,16 +105,6 @@ summary.netlm <- function(object, reps = 1000, ...){
115
105
# ' @param digits the number of significant digits to use when printing.
116
106
# ' @param signif.stars logical. If TRUE, ‘significance stars’ are printed for each coefficient.
117
107
# ' @importFrom stats printCoefmat
118
- # ' @examples
119
- # ' \dontrun{
120
- # ' mat1 <- matrix(c(0,1,1,0,0,1,1,1),4,2)
121
- # ' mat2 <- matrix(c(0,1,0,1,0,1,0,1),4,2)
122
- # ' mat3 <- matrix(c(0,0,1,1,0,0,1,1),4,2)
123
- # ' lmat <- list(mat1 = mat1, mat2 = mat2, mat3 = mat3)
124
- # ' example <- netlm(mat1 ~ mat2 + mat3 + lmat)
125
- # ' summary.netlm(example)
126
- # ' print.summary.netlm(example)
127
- # ' }
128
108
# ' @export
129
109
print.summary.netlm <- function (x ,
130
110
digits = max(3 , getOption(" digits" ) - 3 ),
0 commit comments