Sowmya S. Manian - 1 year ago 79

R Question

Lets say I have an in built function whose code is very lengthy, so I want to count the number of lines in the function and display just part of code by providing the range of numbers to some function.

To see how many lines are there in a function, I used

`tail()`

`tail(XYZ_Function)`

I tried using

`head()`

`tail()`

`tail(head(XYZ_Function,n=150),n=5)`

Is there any function available in R besides using

`head()`

`tail()`

Any help on this is highly appreciated.

Recommended for you: Get network issues from **WhatsUp Gold**. **Not end users.**

Answer Source

I am not sure if you are looking for this one, but you could write youre own function:

```
code_block <- function(x, y, z) { # x = your function, y = lower limit, z = upper limit
dat <- data.frame(head(x, n = z))
dat[which(as.numeric(rownames(dat)) >= y & as.numeric(rownames(dat)) <= z), ]
}
code_block(summary.lm, 12, 20)
> code_block(summary.lm, 10, 20)
10 w <- z$weights
11 if (is.null(w)) {
12 rss <- sum(r^2)
13 }
14 else {
15 rss <- sum(w * r^2)
16 r <- sqrt(w) * r
17 }
18 resvar <- rss/rdf
19 ans <- z[c("call", "terms", if (!is.null(z$weights)) "weights")]
20 class(ans) <- "summary.lm"
```

Recommended from our users: **Dynamic Network Monitoring from WhatsUp Gold from IPSwitch**. ** Free Download**