View source: R/test_single_edges.R

testdelete | R Documentation |

Tests if an edge can be deleted from an interaction model.

```
testdelete(object, edge, k = 2, details = 1, ...)
```

`object` |
A model; an object of class |

`edge` |
An edge in the model; either as a right-hand sided formula or as a vector |

`k` |
Penalty parameter used when calculating change in AIC |

`details` |
The amount of details to be printed; 0 surpresses all information |

`...` |
Further arguments to be passed on to the underlying functions for testing. |

If the model is decomposable and the edge is contained in one clique only then the test is made in the marginal model given by that clique. In that case, if the model is a log-linear model then degrees of freedom are adjusted for sparsity

If model is decomposable and edge is in one clique only, then degrees of freedom are adjusted for sparsity

A list.

Søren Højsgaard, sorenh@math.aau.dk

`testadd`

```
## Discrete models
data(reinis)
## A decomposable model
mf <- ~smoke:phys:mental + smoke:systol:mental
object <- dmod(mf, data=reinis)
testdelete(object, c("phys", "mental"))
testdelete(object, c("smoke", "mental"))
## A non-decomposable model
mf <- ~smoke:phys + phys:mental + smoke:systol + systol:mental
object <- dmod(mf, data=reinis)
testdelete(object, c("phys", "mental"))
## Continuous models
data(math)
## A decomposable model
mf <- ~me:ve:al + me:al:an
object <- cmod(mf, data=math)
testdelete(object, c("ve", "al"))
testdelete(object, c("me", "al"))
## A non-decomposable model
mf <- ~me:ve + ve:al + al:an + an:me
object <- cmod(mf, data=math)
testdelete(object, c("me", "ve"))
```

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.