I want to know how to do the following:

```
 a <- data.frame(num = 1:10, numsqr = (1:10)^2)
 b <- data.frame(num = 11:14, numsqr = 0)
 fit <- lm(numsqr ~ num, data = a)

 b$numsqr <- predict(fit, b)

 print(b)   

   num numsqr
 1  11    121
 2  12    144
 3  13    169
 4  14    196

```

Right now I'm getting the following result

```
  print(b) 
    num numsqr
  1  11     99
  2  12    110
  3  13    121
  4  14    132

```

How could I get my anticipated result??