Sowmya S. Manian - 1 year ago 47

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.

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"
```