根据值的间隔删除行？

Question

df = read.table(sep="",
            header=T, 
            text="Name    Age    Rate
                  Aira     23     90
                  Ben      32     98
                  Cat      27     95")

我想编写一个代码，删除25到30之间的所有年龄列观察结果。因此结果将导致删除年龄27的底行：

df = read.table(sep="",
            header=T, 
            text="Name    Age    Rate
                  Aira     23     90
                  Ben      32     98")

我试图像这样写它，但它不喜欢我使用两个逻辑：

df <- df[!(25<df$Age<30),]